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ABSTRACT 

This  report  describes  the  use  of  the  paged  version 
of  an  associative  (content  addressable)  computer  memory 
simulation  called  GIRS  (Graph  Information  Retrieval  System). 
GIRS  provides  a  convenient  and  efficient  technique  for  the 
dynamic  insertion,  retrieval,  modification,  and  deletion 
of  data  in  a  data  base.  Pointer  manipulation  is  convenient 
and  paged  GIRS  is  well  adapted  for  concurrent  operation  on 
more  than  one  graph  and  therefore  will  handle  shared  and 
distributed  data  bases.  Users  of  a  large  data  base  could 
have  their  own  unique  description  of  common  data  which  might 
be  stored  elsewhere.  The  paged  version  of  GIRS  allows  for  a 
wide  range  of  flexibilities,  in  which,  at  a  minimum,  a  user 
may  leave  many  parameters  to  default.  For  maximum  flexibility, 
however,  a  user  may  include  a  user-embedded  strategy  and  hence 
may  satisfy  queries  of  various  degrees  of  imprecision  depending 
on  the  inferential  search  technique  used. 

The  implementation  described  here  is  in  FORTRAN  for  the 
PDP  11/45  computer  system  and  is  described  in  sufficient  detail 
to  allow  conversion  to  another  computer  or  alteration  of  the 
existing  overlay  structure. 


ADMINISTRATIVE  INFORMATION 

This  work  was  completed  in  the  Computer  Science  Division  of  the  Computation, 
Mathematics,  and  Logistics  Department  under  the  sponsorship  of  NAVSEA  03F,  Task 
Area  ZF  43411001,  Work  Unit  1808-009. 


INTRODUCTION 

This  report  describes  the  use,  and  to  a  lesser  degree,  the  implementation  of  the 
paged  version  of  an  associative  (content  addressable)  computer  memory  simulation 
called  GIRS  (Graph  Information  Retrieval  System).  GIRS  provides  a  convenient  and 
efficient  technique  for  the  dynamic  insertion,  retrieval,  modification,  and  deletion 
of  data  in  a  data  base.  Pointer  manipulation  is  convenient  and  paged  GIRS  is  well 
adapted  to  handle  shared  and  distributed  data  bases.  The  flexibility  of  the  paged 
version  of  GIRS  allows  the  user  the  option  of  leaving  many  parameters  to  default. 

For  maximum  flexibility,  however,  a  user  may  include  a  user-embedded  strategy  and 
hence  may  satisfy  queries  of  various  degrees  of  imprecision  depending  on  the  infer¬ 
ential  search  technique  used. 
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The  Implementation  described  here  is  in  FORTRAN  for  the  PDP  11/45  computer 
system  and  is  in  sufficient  detail  to  allow  conversion  to  another  computer  or 
alteration  of  the  existing  overlay  structure. 

Paged  or  Out-Core  GIRS  is  an  extension  of  an  existing  version  of  GIRS  as  de- 
1* 

scribed  by  Zarltsky.  The  original  version  will  be  referred  to  in  this  report 
as  "In-Core"  GIRS.  Out-Core  GIRS  is  an  implementation  based  on  a  report  by  Berko- 
witz,  "Design  Trade-Offs  For  A  Software  Associative  Memory."  Some  familiarity 
with  In-Core  GIRS  is  assumed  and  it  is  also  assumed  that  the  reader  has  access  to 
copies  of  both  prior  reports. 

BRIEF  DESCRIPTION 

With  Out-Core  GIRS,  a  graph  may  be  segmented  and  placed  onto  as  many  as  63 
logically  and  physically  separate  regions  called  pages.  Pages  can  be  extended 
in  length — i.e.,  in  the  number  of  associations  stored,  but  not  in  the  number  of 
addresses — as  needed  by  a  specified  increment,  called  a  continuant.  Each  page, 
as  requested,  contains  one  or  more  continuants  (logical  records  of  uniform  phys¬ 
ical  length)  as  illustrated  in  the  following  diagram: 

PAGE  1  PAGE  2  PAGE  3  PAGE  4 


*A  complete  listing  of  references  is  given  on  page  149. 
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Continuants  may  be  used  to  further  partition  a  graph  or  merely  to  hold  an  overflow  of 
data  from  a  previous  continuant.  It  is  the  continuant  which  is  swapped  from  disk  to 
the  C.IRS  buffer  and  back.  The  user  determines  the  continuant  size  and  also  the 
number  of  continuants  which  will  reside  in  the  GIRS  buffer.  The  continuant  size 
determines  the  maximum  number  of  nodes  and  links  which  may  be  defined  for  each  page. 

If  a  user  chooses  a  buffer  size  which  holds  only  one  continuant  and  requests 
just  one  page,  then  the  system  is  similar  to  in-core  GIRS  except  for  the  capability 
of  automatic  overflow  to  a  new  continuant. 

MOTIVATION 

The  paged  version  of  GIRS  has  several  advantages  over  in-core  GIRS  and  other 
data  manipulation  facilities: 

1.  Its  large  data  storage  capability  (see  the  section  entitled  "Limitations 
and  Memory  Requirements"). 

2.  Concurrent  operation  on  more  than  one  graph.  Paged  GIRS  is  ideal  for 

shared  and  distributed  data  bases.  Each  user  of  a  large  data  base  might  be 

assigned  his  or  her  own  page  to  uniquely  describe  common  data  which  might  be 

stored  elsewhere.  An  example  of  this  type  of  application  is  described  by 
3 

Zaritsky. 

3.  Its  capability  for  a  user-embedded  strategy,  which  allows  for  the  inclusion 
of  operations  such  as  an  inferential  search  to  handle  imprecise  queries.  This  capa¬ 
bility  is  described  in  the  section  on  "Adding  a  User-Embedded  Strategy." 

4 

In  the  near  future,  a  paged  hardware  associative  memory  will  be  merged  with 
out-core  GIRS.  The  result  will  be  an  enhanced  system  with  high  speed  relational 
processing. 


MEMORY  SCHEME 


THE  GIRS  BUFFER 

The  GIRS  buffer  consists  of  four  fields,  represented  by  the  four  arrays,  NODSPC, 
LSTSPC,  LNK3PC,  and  FLGSPC,  from  commons  LVVTRl,  LVVTR2,  LVVTR3,  and  LVVTR4,  respec¬ 
tively,  as  was  the  case  with  the  in-core  version  of  GIRS.  The  buffer  contains  both 
continuants  and  a  directory  for  locating  the  continuants  residing  in  the  buffer. 

The  number  of  continuants  that  may  reside  in  the  buffer  is  unrestricted.  It  is  fixed 
by  the  user  in  variable  LVNCOR  in  labeled  common  LVBUFR.  The  buffer  location  immedi¬ 
ately  preceding  the  beginning  of  each  continuant  is  called  the  control  point  (CP)  and 
the  directory  is  located  at  CPO. 

THE  CONTINUANT 

Although  each  continuant  requires  an  equal  length  of  NODSPC,  LSTSPC,  LNKSPC,  and 
FLGSPC,*  each  field  is  composed  of  three  "spaces":  a  "working  space"  and  an  "avail¬ 
able  space,"  as  was  the  case  with  in-core  GIRS,  and  a  space  for  the  header  to  de¬ 
scribe  the  state  of  the  continuant.  The  header  takes  up  eight  cells,**  two  in  each 
of  the  four  fields.  The  header  is  described  in  Table  1;  the  variables  (from  labeled 
common  LVHDVL)  in  brackets  indicate  the  relative  location  from  the  beginning  of  the 
continuant . 


*It  is  convenient  to  refer  to  the  length  of  any  one  of  these  arrays,  instead  of 
all  four,  as  being  the  continuant  size.  The  continuant  size  requested  by  the  user 
must  be  a  multiple  of  64  (up  to  960  on  default),  but  the  actual  usable  continuant 
size  is  always  two  less  than  n*64  to  account  for  the  header. 

**On  the  PDP  11,  a  cell  takes  up  the  space  of  one  word. 
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TABLE  1  -  THE  CONTINUANT  HEADER 


NODS PC 

a) 

The  relative  Mass  Storage  Address  (MSA)  of  this  con¬ 
tinuant  [THSMSA] 

b) 

The  REGister  of  Available  SPace  (REGASP)  for  this 
continuant  [REGAS] 

LSTSPC 

a) 

This  continuant's  page  number  [PAGENO] 

b) 

This  continuant's  relative  position  within  the  page 
[CONTNO] 

LNKSPC 

a) 

The  size  of  this  continuant's  "working  space" 

(number  of  insertions  less  deletions)  [INSDEL] 

b) 

The  number  of  times  this  continuant  has  been  accessed 
since  it  was  last  brought  into  main  memory  [USECT] 

FLGSPC 


a)  [HDRFLG]  The  continuant  descriptor  flags,  if  on,  indicate 
the  following: 

1)  LVWRIT  -  The  continuant  has  been  modified  since 
it  was  brought  into  the  buffer  and  therefore 
must  be  written  out  to  disk  when  either  another 
continuant  is  brought  into  the  same  segment 
(control  point)  of  the  buffer  or  when  the  file 
is  closed. 

2)  LVNUSE  -  The  continuant  has  not  yet  been  used. 

Either  it  has  just  been  created  or  it  has  been 
brought  into  the  buffer  and  not  yet  accessed. 

This  flag  is  turned  off  when  the  continuant  is 
accessed . 


b)  An  indicator  of  how  recently  this  continuant  was 
brought  into  the  buffer  [READVL] 
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If  a  user  wishes  to  access  information  described  in  Table  1  and  if  the  desired 
continuant  is  the  current  continuant  of  the  current  page,  then  the  user  may  do  so  by 
adding  the  bracketed  label  to  LVCTRL  and  using  that  quantity  as  an  index  to  the 
appropriate  buffer  array.  For  example,  "Transfer  to  statement  10  if  the  continuant 
read  into  the  buffer  most  recently  (making  it  the  current  continuant  of  the  current 
page)  has  not  yet  been  accessed:" 

IF((FLGS PC (LVCTRL  +  HDRFLG)  .AND.  LVNUSE)  .NE.  0)  GO  TO  10. 

THE  DIRECTORY 

The  directory  is  a  continuant  without  a  header.  It  is  never  taken  out  of  the 
buffer  and  is  located  at  the  beginning  of  the  buffer.  Its  size  (within  each  of  the 
four  fields  of  the  buffer)  is  determined  by  the  number  of  continuants  residing  in  the 
buffer  (LVNCOR)  and  is  calculated  as  follows: 

LVDRSZ  -  6A  *  ( (LVNCOR/64)  +  1) 

Each  control  point  is  stored  as  the  sink  node  (integer  value)  of  a  triple  where 
the  source  node  is  the  "continuant  number  +  1"  and  the  link  is  the  page  number.  The 
directory  address  for  the  triple  is  determined  as  follows: 

LOC  =  (Page  No.  +  Cont.  No  +  1)  Mod  (LVDRSZ) 
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THE  BUFFER  COMPOSITION 

A  typical  buffer  may  be  illustrated  as  follows: 

Location  Length  Contents 

NODS PC  LSTSPC  LNKSPC  FLGSPC 


where:  CPI  =  LVDRSZ 

CP2  =  LVDRSZ  +  LVHDRS  +  LVVSZE 

CPn  ■=  LVDRSZ  +  (n-1)  *  LVPGHD 
LVHDRS  *  2 

LVPGHD  -  LVHDRS  +  LVVSZE 

LVVSZE  *  continuant  size  as  defined  by  the  user 

INITIALIZATION  OF  THE  GIRS  BUFFER 

As  for  In-Core  GIRS,  the  buffer  is  initialized  by  calling  subroutine  LVSETP. 
The  available  space  (AS)  ring  is  identical  to  that  in  the  In-Core  version  except 
that  as  many  copies  of  it  will  be  placed  in  the  buffer  as  there  are  continuants  re¬ 
siding  in  the  buffer. 
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The  values  In  Che  continuant  header  as  described  In  Table  1  are  Initialized  as 
follows: 

NODS PC 

a)  The  relative  block  address  of  the  continuant  on  the  disk  file  as  computed 
by  LVSETP 

b)  REGASP  -  1 
LSTSPC 

a)  The  page  number  of  the  continuant 

b)  Continuant  numbers  as  assigned  in  order  of  their  creation,  beginning  with 
zero 

LNKSPC 

a)  The  number  of  spaces  In  the  continuant  which  have  been  removed  from  AS  *  0 

b)  Access  count  <*  0 
FLGSPC 

a)  Continuant  descriptor  flags  *■  0 

b)  Continuant  I/O  history  set  to  the  current  value  of  LVRCNT  from  common 
LVREGS 

Subroutine  LVSETP  initializes  all  the  continuants  requested  through  array  LVSTAK 
and  upon  completion  brings  page  one,  continuant  zero,  back  into  the  buffer. 

COMMON  LVBUFR 

Common  LVBUFR  contains  all  the  variables  for  determining  of  the  memory  buffer 
size  and  the  continuant  locations  on  disk.  The  order  in  which  the  variables  are 
listed  here  does  not  necessarily  match  the  actual  order  as  shown  in  Appendix  A. 

The  internal  names  for  each  variable  are  noted  in  brackets. 

LWSZE  -  Single  array  length*  of  the  continuant 

[PAGSZE]  -  (n*64)  -2  where  1  <n<  8 
LVHDRS  -  Single  array  length  of  the  header 
tHDRSZE]  -  2 

LVPGHD  -  Single  array  length  of  the  combined  continuant  and  header 
[PAGHDR]  -  PAGSZE  +  HDRSZE  -  n*64  where  1  <  n  <  8 


The  four  arrays — NODSPC, 


LSTSPC,  LNKSPC,  and  FLGSPC — are  of  equal  length. 
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LVBKSZ  -  Number  of  blocks  (256  words  each)  required  Co  hold  one  continuant 
on  disk 

[BLKSZE]  -  4  *  PAGHDR/256 

LVPGH4  -  Total  length,  In  words,  of  one  continuant 
[PAGHD4]  -  4  *  PAGHDR 

LVNCOR  -  Number  of  continuants  which  reside  In  the  ln-core  buffer  [INCORE] 

LVDRSZ  -  Single  array  length  of  the  ln-core  directory.  It  must  be  a  multiple 
of  64 

[DIRSZE]  =  64  *  ((INCORE/64)  +  1) 

LVBFSZ  -  Total  single  array  length  of  the  in-core  buffer.  NODSPC,  LSTSPC, 

LNKSPC,  and  FLGSPC  are  all  dimensioned  to  this  value 
[BUFSZE]  »  DIRSZE  +  (INCORE  *  PAGHDR) 

LVDRBK  -  Number  of  blocks  required  to  hold  the  in-core  directory  on  disk 
[DIRBLK]  -  4  *  DIRSZE/256 

LVMSAD  -  Location  on  disk  (relative  block  number)  of  the  ln-core  directory 
[MSADIR]  -  2 

REPRESENTATION  OF  NODES  AND  LINKS 

Before  nodes  and  links  may  be  used  in  a  graph,  they  must  be  assigned  to  a  page 
and  given  a  random  number  which  is  unique  to  that  page.  This  Is  accomplished  by 
calling  subroutine  LVGRN.  Page  numbers  can  be  either  specifically  requested  by  the 
user  (1  <  LVREQP(l)  £  63)  or  assigned  by  LVGRN  (LVREQP(l)  «  -1)  to  a  new  page. 

The  random  number  returned  is  in  the  range  of  1  to  LVVSZE  (the  continuant  size)  and 
the  same  sequence  of  random  numbers  is  repeated  for  each  page.  The  total  number  of 
nodes  and  links  which  the  user  may  define  for  any  one  page  may  not  exceed  LWSZE  or 
the  program  will  terminate.  Unless  the  default  values  are  modified,  nodes  and  links 
have  the  following  form: 
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PAC ■  AND  continuant  determination  for  the  triple 

Page  Determination 

Subroutine  LVINEX  determines  the  page  (and  continuant)  on  which  a  triple  is 
placed*  The  Information  needed  for  page  placement  is  extracted  from  the  source  node 
at  the  time  of  insertion*  If  the  source  node  is  fully  defined  (from  subroutine 
LVGRN),  the  prefix  determines  page  placement*  If  the  source  node  is  not  fully  de¬ 
fined,  it  is  expected  to  have  one  of  the  following  values: 

-1,  Place  the  triple  on  a  new  page 

0,  Place  the  triple  on  the  current  page 

1  .<  n  <:  63,  Place  the  triple  on  page  n 

In  all  these  cases,  LVINEX  will  call  LVGRN  to  fully  define  the  source  node. 

A  request  to  place  the  triple  on  a  new  page  is  a  special  case.  Two  variables 
are  used  to  coaipute  a  page  number.  LVHAPG,  from  common  LVREGS,  is  an  Internal 
counter  which  keeps  track  of  the  highest  page  number  in  which  there  has  been  an 
insertion  or  for  which  a  random  number  has  been  generated.  LVHREQ,  also  from 
common  LVREGS,  is  set  by  the  user  at  the  beginning  of  the  program.  This  variable 
defines  the  number  of  pages  created  prior  to  execution  of  the  program.  During  the 
course  of  execution,  if  LVHAPG(l)  exceeds  LVHREQ,  continuant  xero  of  a  new  page  is 
created  and  LVHAPG(l)  is  Incremented  by  one. 

Continuant  Determination 

Before  an  insertion,  deletion,  or  retrieval  may  take  place,  the  particular 
continuant  must  be  determined.  If  the  user  does  not  specify  a  continuant,  all  the 
continuants  of  the  requested  page  will  be  examined  in  sequential  order  until  either 
the  requested  function  is  found  or  the  set  of  continuants  for  that  page  is  exhaust¬ 
ed.  If  the  function  does  not  exist,  the  triple  is  placed  on  the  (sequentially) 
first  continuant  of  the  requested  page  which  has  available  space.  The  continuant 
request  is  made  with  variable  LVREQP(2)  from  labeled  common  LVREGS,  which  may  take 
the  following  values: 

0  _<  n  _<  63,  Continuant  n  is  requested 

-1,  New  continuant  is  requested 

-2,  Continuant  is  unspecified  (default) 

-3,  Current  continuant  if  requested  page  is 

current  page 
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If  a  value  is  to  be  added  to  a  list  that  has  been  specifically  placed  on  a 
particular  continuant,  but  a  different  continuant  la  specifically  requested,  sub¬ 
routine  LVREOR  reports  an  error.  However,  the  Insertion  proceeds  with  the  entire 
list  moved  onto  the  newly  requested  continuant. 

2 

With  judicious  use  of  subroutine  LVREOR,  two  continuants  may  be  MERGEd  and 

2 

also  a  list  may  be  SEPARATEd  from  one  continuant  and  placed  on  another. 

THE  FLAG  FIELD 

The  flag  field,  contained  In  FLGSPC  In  Common  LVVTR4 ,  consists  of  eleven  one- 
bit  flags  and  two  two-bit  flags: 


FLGSPC 


14  13  n  11  10  9-8  0  1  2  3  4  5  6-7 


Each  flag  describes  a  different  aspect  of  the  contents  of  the  associated  location 
In  the  buffer  (Table  2).  The  first  seven  flags  are  the  same  as  those  for  in-core 
GIRS. 


TABLE  2  -  THE  FLAG  FIELD 


FLAG 

FLAG  VALUE 

CONTENTS  OF  ASSOCIATED  LOCATION 

Flag  0 

27 

Head  of  a  multivalued  list. 

Flag  1 

26 

Location  already  occupied. 

Flag  2 

25 

A  value  on  a  multivalued  list. 

Flag  3 

24 

A  node  or  link  value.  Does  not  refer  to  the  actual 
contents  of  the  location.  Rather,  the  location  value 
itself  is  used  as  a  random  number  to  define  either  a 
node  or  a  link. 

Flag  4 

23 

Head  of  a  multivalued  list  which  has  been  modified 
either  by  an  insertion  or  by  an  indexed  deletion,  thus 
bypassing  the  "saved  index"  upon  retrieval  feature. 

(See  the  description  of  Subroutine  LVFNV  for  further 
details.) 

Flag  5 

22 

Head  of  a  conflict  list. 

Flag  6-7 

21  +  2° 

Type  of  value  contained  in  the  location: 

00  Random  number 

01  Numeric  data 

10  Continuing  string  of  Hollerith  data 

11  The  only,  or  final,  cell  in  a 

Hollerith  data  string 

Flag  8-9 

28  +  29 

Type  of  triple  contained  in  the  location: 

00  NODE  LINK  value 

01  NODE  value  NODE 

10  value  LINK  NODE 

Flag  10 

210 

MVL  backward  continuation  flag.  This  continuant  does 
not  contain  the  beginning  of  the  list.  A  portion  of 
this  function  resides  on  a  lower-numbered  continuant. 

Flag  11 

2U 

List  forward  continuation  flag.  This  continuant  does 
not  contain  the  end  of  the  list.  A  portion  of  this 
function  resides  on  a  higher-numbered  continuant. 

Flag  12 

212 

Inhibit  reorganization  of  this  list  onto  another 
continuant. 

Flag  13 

213 

Head  of  a  list  which  is  a  non-movable  continuation 
of  a  list  on  some  other  continuant. 

Flag  14 

2U 

Pointer  to  sequence  space. 
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DISK  FORMAT 

A  saved  GIRS  file  contains  (In  sequence)  the  following  information:  System 
values  from  the  labeled  commons,  up  to  228  user  Identifiers  from  labeled  common 
LVUSER,  variables  for  generating  or  continuing  the  random  number  sequence  for  up 
to  64  different  pages,  a  copy  of  the  directory  of  the  continuants  residing  In  the 
buffer  when  the  program  terminated,  a  directory  containing  the  disk  locations  (re¬ 
lative  to  the  beginning  of  the  file)  of  all  the  continuants  in  the  system,  and 
copies  of  all  of  the  continuants  in  the  system. 

The  continuants  are  sequentially  placed  onto  the  file  In  the  order  of  their 
creation.  At  the  beginning  of  a  "creation”  type  program,  empty  copies  of  all 
requested  continuants  are  placed  onto  the  file  in  sequence  of  increasing  pages 
and  continuants.  After  that,  continuants  are  placed  onto  the  file  as  they  are 
created. 

Also,  at  the  beginning  of  a  creation  type  program,  sixteen  blocks  are  allo¬ 
cated  for  the  "out-core"  directory.  Each  block  holds  the  relative  locations  for 
the  continuants  of  four  pages.  Otherwise,  the  block  contains  zeros. 

Table  3  describes  the  disk  format  for  a  GIRS  file  which  has  been  saved. 
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A. 


TABLE  3  -  THE  DISK  FORMAT 


Relative 
Location 
(in  blocks) 


0 


1 


2 


LVDRBK+2 


Size 

(in  blocks) 


1 


1 


LVDRBK 


1 


Contents 


GIRS  system  variables  from  labeled  commons 
LVREGS,  LVRAND ,  LVBUFR,  and  LWSEQ.  Also, 
up  to  228  user  identifiers  from  labeled 
common  LVUSER. 


LVNTBL  (256)  from  labeled  common  LVRAND. 


Directory  of  continuants  residing  in  the 
buffer.  LVDRBK  -  ((LVNC0R/64)+l)/64) 


Directory  containing  the  locations 
(relative  to  the  beginning  of  the 
file)  of  all  continuants  from  pages 


1-4. 


LVDRBK+2+n  1 


LVDRBK+1 8 


LVBKSZ 


Out-core  directory  for  all  continuants  from 
pages  n*4+l  to  n*4+4  where  0<n<l5. 


Page  1,  Continuant  0 
LVBKSZ  -  LWSZE/64 

(the  continuant  size,  LWSZE,  must  be  a  mul¬ 


tiple  of  64) 


LVDRBK+1 8 
+LVBKSZ 

LVDKSZ 

Page  l.  Continuant  1  or  Page  2, 

Continuant  0;  continuants  are  placed  sequen¬ 
tially  as  they  are  created. 

LVDRBK+1 8 
+n*LVBKSZ 

LVDKSZ 

nth  continuant  to  be  placed  onto  the 
file. 

t 


Each  block  contains  256  words. 
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PAGING  SCHEME 

GENERAL  DISCUSSION 

All  the  general  I/O  for  out-core  GIRS  is  handled  on  the  PDP-11  computer  by  two 
RT-11  System  Subroutine  Library  routines:  IREADW  and  IWRITW.  These  two  routines 
operate  In  a  block-oriented,  random  access,  unformatted  mode.  They  are  called  by 
four  GIRS  routines:  LVPAGR  and  LVPAGW,  to  read  In  and  write  out  the  continuants; 
and  LVDRRD  and  LVDRWR,  to  read  In  and  write  out  any  of  the  sixteen  directories  of 
continuant  locations  on  disk.  The  I/O  channels  are  initialized  when  GIRS  subroutine 
LVSETP  calls  RT-11  System  Subroutine  Library  functions:  ICSI,  IGETC ,  IFETCH,  IENTER, 
and  LOOKUP.  The  new  channel  is  closed  when  GIRS  subroutine  LVDUMP  calls  subroutine 
LVCLOS  which  in  turn  calls  System  Subroutine  Library  routine  CLOSEC.  Since  only  six 
GIRS  subroutines  interact  with  the  RT-11  System  Subroutine  Library,  the  I/O  functions 
are  relatively  isolated.  This  leaves  an  otherwise  portable  all  FORTRAN  package. 

I/O  FOR  THE  DIRECTORIES  OF  DISK  LOCATIONS  OF  CONTINUANTS 

There  are  sixteen  out-core  directories  with  enough  space  to  locate  up  to  64  con¬ 
tinuants  for  each  of  64  pages*  on  disk.  Each  directory  has  256  words  (one  block)  to 
locate  the  continuants  for  four  consecutive  pages:  1-4,  5-8,  .  .  .  etc.  The  direc¬ 
tories  are  located  on  relative  locations  LVDRBK+2  through  LVDRBK+17  of  the  disk  file. 
Only  one  directory  at  a  time  is  stored  in  main  memory  in  array  LVOTDR(256)  in  labeled 
common  LVREGS.  To  find  the  desired  location  within  the  directory  three  variables 
also  from  labeled  common  LVREGS  are  needed:  LVDRPG,  LVDIRC,  and  LVOTLC.  LVDRPG  con¬ 
tains  the  current  directory  number  as  determined  by  the  last  requested  page. 

LVDRPG  -  (Page  No.  -l)/4  +  1 
(value  range  ■  1-16) 

LVDIRC  determines  the  quadrant  number  within  the  directory  for  the  requested  page. 

LVDIRC  -  Page  No.  -  4* (LVDRPG  -1) 

(value  range  -  1-4) 

LVOTLC  is  the  position  within  the  directory  of  the  disk  location  for  the  requested 
page  and  continuant  number. 

LVOTLC  -  1  +  64* (LVDIRC  -1)  +  Cont.  No. 

(value  range  “  1-256) 


Practical  considerations  limit  the  number  of  pages  to  a  maximum  of  63,  not  64. 
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I/O  FOR  THE  CONTINUANTS 

I/O  for  the  continuants  is  controlled  by  an  I/O  executive  routine,  LVEXCH. 

LVEXCH  takes  as  input  a  requested  page  and  continuant  number,  LVREQP(l)  and 
LVREQP(2)  from  labeled  common  LVREGS,  and  either  confirms  its  current  residency  in 
the  GIRS  buffer  or  brings  it  into  the  buffer.  In  either  case,  the  current  page 
(LVCUPG(l))  and  LVCUPG(2)  from  labeled  common  LVREGS)  is  updated  to  the  requested 
page. 

The  general  flow  of  LVEXCH  is  as  follows: 

1)  Call  LVDRCT  to  search  the  in-core  directory  and  determine  whether  the  re¬ 
quested  page  and  continuant  (REQ(P,C))  are  in  the  buffer.  If  so,  update  the  "current 
page"  register  and  return. 

2)  Call  LVMSA  to  bring  into  main  memory  the  correct  "Directory  of  Continuant 
Locations  on  Disk"  if  necessary  and  then  determine  whether  the  continuant  exists  and 
if  so,  its  location  on  disk. 

3)  Call  LVOPEN  to  make  a  control  point  ("continuant  block")  available  in  the 
GIRS  buffer.  If  the  buffer  contains  more  than  one  continuant  block,  call  LVALUE  to 
determine  (using  the  continuant  header  values)  which  in-core  continuant  is  of  least 
value.  If  the  current  continuant  has  been  modified  since  it  was  brought  into  the 
buffer,  write  it  out  to  disk.  (The  algorithm  used  for  this  determination  is  dis¬ 
cussed  in  the  next  section.) 

4)  Call  LVPAGR  to  bring  the  requested  page  into  the  GIRS  buffer. 

5)  Update  the  "current-page"  register  (LVCUPGO). 

6)  Call  LVRPLC  to  update  the  In-Core  directory. 

7)  Call  LVSUM  to  update  the  new  continuant  header  and  then  return. 
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PHILOSOPHY 


The  philosophy  used  by  Out-Core  GIRS  for  bringing  in  continuants  is  generally 
known  as  "demand  paging,"  that  is,  a  continuant  is  brought  into  the  buffer  only  when 
it  is  specifically  requested.  However,  any  continuant  presently  residing  in  the 
buffer  must  be  saved  before  it  is  written  over  if  it  has  been  modified  by  an  in¬ 
sertion  or  deletion.  Furthermore,  if  the  buffer  holds  more  than  one  "continuant 
block,"  a  specific  continuant  must  be  selected  for  removal. 

Subroutine  LVALUE  contains  the  formula*  used  for  this  purpose.  It  is  a  modifi¬ 
cation  of  an  optimization  formula  designed  for  the  Control  Data  Corporation  (CDC) 
Interactive  Graphics  Data  Handler.^ 

Each  continuant  has  a  desirability  value  computed  from  values  stored  in  the 
header  of  that  continuant.  The  continuant  with  the  lowest  desirability  value  is 
either  written  over  or  written  out  to  disk,  of  course.  The  formula  is: 

value  ■  A  *  order  +  B  *  usage  +  C  *  space  +  D  *  write 

where  the  weighting  factors  A,  B,  C,  and  D  sum  to  100.  The  weighting  factors  are 

set  as  follows:  A  =*  15.0,  B  **  20.0,  C  “  15.0,  and  D  «  50.0.  Order  is  a  measure  of 

how  long  the  continuant  has  been  in  core.  Continuants  most  recently  read  in  are 
weighted  more  heavily.  Usage  is  the  ratio  of  the  use  count  for  an  individual  con¬ 
tinuant  to  the  total  usage  for  all  the  continuants  in  the  buffer  at  the  time  of  the 
computation.  Usage  is  defined  as  the  sura  of  all  calls  to  subroutines  LVINEX,  LVFDEX, 
and  LVDLEX  which  reference  a  particular  continuant  from  the  time  that  continuant  was 
read  into  the  buffer.  Space  refers  to  the  fill  ratio  of  the  continuant.  The  em¬ 
phasis  of  the  fill  ratio  varies  with  the  type  of  computer  run.  For  a  creation  type 
run,  a  half-filled  continuant  is  emphasized  and  for  a  production  type  run,  a  5/8  to 
7/8  filled  continuant  is  emphasized  and  an  empty  continuant  is  deemphasized.  The 
write  parameter  greatly  emphasizes  a  continuant  which  has  been  modified  because  of 
the  immediate  50  percent  savings  in  disk  I/O  If  the  present  continuant  does  not  have 
to  be  written  out  to  disk  prior  to  reading  in  the  requested  continuant. 
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This  formula  was  devised  by  Mr. 


M.  Haas, 


formerly  with  CDC  and  with  DTNSRDC. 


USER-CALLABLE  GIRS  SUBROUTINES 


INITIALIZATION 


Getting  Started 

To  execute  a  GIRS  program,  the  following  labeled  commons  and  declarations  should 
be  Included  In  the  driving  program: 


REAL *4  DEFEXT,LVCORE 

LOGICAL* 1  LVSTP,LVSNGL ,LVNXTR,LVINl ,LVIN2 ,LVFD 1 , 

L VFD 2 , L VDL I , L VDL2 , LVI N3 , LVED3 , LVDL3 , LVDMP , 
LVFD4,LVDL4,LVIN4, LVCRNT 


COMMON 

1 

2 

COMMON 

COMMON 

COMMON 

1 

2 

3 

COMMON 

1 

COMMON 

1 

2 

COMMON 

1 

2 

3 

COMMON 

COMMON 

COMMON 


/L VARGS /  LVFUNC , L WARG , LVVPOS , LVVTYP , LVVAL , LVVN VL , LVSKI P , 

LVVTR , LVVINC  , LVNDXN ,  L WALS  (10)  ,L VTYPE  (10) 

.LVSRSF , LVLNSF, LVSNSF , LVNTYP 
/LVVSEQ/  LVSIZE,LVSEQ1,LVSEQ2,SEQSPC(1) 

/LVRAND/  LVKPRM,LVKS,LVKY,LVKDY,LVKDX,LVTEMP,LVLIST,LVNTBL(256) 
/LWTR1/  NODSPC(buf fer  size) 

/LWTR2/  LSTSPC (buf f er  size) 

/LVVTR3/  LNKSPC( buffer  size) 

/LWTR4/  FLGSPC(buf fer  size) 

/LVCRNT/  LVVGSP,LVCTRL,L .  :TR1 ,LVLSTV,LVNFRE,LVFREE, 

LVDREG , LVVMSA , LVPGLC , LVCRNT 
/LVBUFR/  L VVSZ  E , LVNWCH , LVOLCH , L VCMPR ,L VPGHD , LVBFSZ 
LVDRSZ ,LVNCOR,LVHDRS ,LVMSAD , 

LVSFSZ .LVBKSZ ,LVDRBK,LVPGH4 
/LVREGS/  LVCUPG(4) ,LVREQP(4) ,LVLVPG(4) .LVMSAR, 

LVHRPG , LVNMSA , L VHAPG ( 2 ) .LVRCNT , LVUCNT , LVDRPG , 

LVD IRC , LVOTLC , L VOTDR (256), 

LVRWBF(4*continuant  size) 

/LVPRAM/  LVBFLC , LVLNTH , L VVERR , LVERNO , L VBNRY , LVBCD , LVMODE , LVPGS , LVLUN 

/LVRUN/  LVRNTP , LVCORE 

/LVSTAK/  LVLEVL,LVNVAR,LVSTAK( 140) 


COMMON  /LVMASK/  LVWRIT,LVNUSE,LVNWCN,LVMSK3,LVMSSF,LVMSPF 
COMMON  /LVSWIT/  LVSTP,LVSNGL,LVNXTR,LVIN1 ,LVIN2,LVFD1 , 

1  LVFD2 ,LVDL1 ,LVDL2 ,LVIN3,LVFD3,LVDL3,LVDMP, 

2  LVFD4.LVDL4.LVIN4 
COMMON  /LVUSER/  USER(228) 

COMMON  /LVUTIL/  FILSPC(39) ,DEFEXT(2) 

Note: 

1)  A  user  may  place  up  to  228  identifiers  in  Common  LVUSER.  These  identifiers 
will  automatically  be  placed  on  disk  if  a  file  is  created. 

2)  If  the  "swap  USR"  function*  of  the  RT-11  operating  system  for  the  PDP-11 
computer  is  on  (default) ,  then  COMMON  /LVUTIL/  should  be  placed  at  the  end  of  the 
set  of  labeled  commons  to  prevent  its  being  swapped  out  of  main  memory.  If  this 
labeled  common  is  swapped  out  of  main  memory,  the  operating  system  as  well  as  the 
program  will  go  down  as  soon  as  the  input  and  output  file  names  are  read  in.  If 
this  common  block  is  placed  at  the  end  and  the  system  still  goes  down,  either 
"SET  USR  NOSWAP"  or  try  placing  a  dummy  array  in  front  of  the  common. 

The  following  declaration  and  labeled  commons  should  be  included  in  all  sub¬ 
routines  in  which  there  are  GIRS  operations: 

LOGICAL* 1  LVSTP, LVSNGL , LVNXTR , LVIN 1 , LVIN2 ,LVFD 1 , 

1  LVFD2.LVDL1 ,LVDL2,LVIN3,LVFD3,LVDL3,LVDMP, 

2  LVFD4,LVDL4,LVIN4,LVCRNT 

COMMON  /LVARGS/  LVFUNC  .LVVARG ,LWPOS  ,LWTYP,LWAL  ,LVVNVL  ,LVSKIP, 

1  LWTR,LWINC,LVNDXN,LWALS  (10)  ,LVTYPE(10) , 

2  LVSRSF ,LVLNSF , LVSNSF , LVNTYP 

COMMON  /LVREGS/  LVCUPG(4) ,LVREQP(4) ,LVLVPG(4) ,LVMSAR, 

1  LVHRPG,LVNMSA,LVHAPG(2) ,LVRCNT,LVUCNT,LVDRPG, 

2  L VD IRC , LVOTLC , LVOTDR (256) ,LVRWBF (512) 


*The  "swap  USR"  function  will  swap  out  of  main  memory  the  first  2000  words  of 
a  user's  program  in  order  to  bring  in  RT-1 I  system  outines. 
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COMMON  /LVSWIT/  LVSTP ,LVSNGL,LVNXTR,LVINl ,LVIN2 ,LVFD1 , 

1  LVFD2 ,LVDL1 ,LVDL2 ,LVIN3 ,LVFD3 ,LVDL3,LVDMP, 

2  LVFD4,LVDL4,LVIN4 

If  Subroutine  LVDUMP  Is  to  be  called  from  a  subroutine,  the  following  labeled 
COMMON  is  needed: 

COMMON  /LVPRAM/  LVBFLC , LVLNTH , LVVERR , LVERNO , LVBNRY , LVBCD , 

I  LVMODE , LVPGS , LVLUN 

In  order  to  initialize  the  GIRS  buffer  and  the  random  number  generator,  LVSETP 
must  be  the  first  GIRS  subroutine  called.  The  following  variables  must  also  be  de¬ 
fined  prior  to  the  call  to  LVSETP  and  any  calls  to  LVGRN: 

LVSTAKO  LVSIZE  LVKPRM 

LVVSZE  LVNCOR  LVRNTP 

LVHRPG  LVMSPF+  LVMSSF+ 

LVSFSZ+ 

Tnese  variables  are  described  in  subsequent  sections  on  LVSETP  and  LVGRN. 

The  letters  "LV"  must  not  be  used  to  begin  subroutine  and  variable  names.  These 
initial  letters  are  reserved  for  GIRS. 

The  user  must  first  decide  on  a  continuant  size  (LVVSZE),  which  determines  the 
maximum  number  of  nodes  and  links  that  may  be  defined  for  a  given  page.  Its  value 
must  be  (n*64)-2,  n  >  0.++  Next,  the  user  must  decide  how  many  continuants  may  be 
present  in  core  simultaneously  (LVNCOR).  This  value  will  determine  the  in-core 
directory  size  (LVDRSZ )  as  computed  by  LVSETP  to  be  64*((LVNCOR/64)+l ) .  Conse¬ 
quently,  the  space  needed  for  each  of  the  four  fields  (NODSPC,  LSTSPC,  LNKSPC,  and 
FLGSPC)  of  the  GIRS  buffer  is 

64* ( (LVNCOR/64)+l )  +  LVNCOR* (LVVSZE+2) 

The  user  must  then  decide  whether  "Sequence  Space"  will  be  used.  If  so,  LVSIZE  is 
set  to  that  value;  otherwise,  LVSIZE  is  set  to  1.  Also,  the  user  must  dimension 
array  LVRWBF  from  Common  LVREGS  to: 

4*(continuant  size+2) 

Note  that  this  dimension  must  be  a  multiple  of  256. 

+These  variables  have  default  values  and  need  be  defined  only  if  the  node 
suffix  and  prefix  sizes  are  modified. 

++When  used  with  GIRL,  it  must  be  a  multiple  of  64. 
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GIRS  expects  a  program  to  do  one  of  the  following  things: 

1)  create  a  new  graph 

2)  update  an  old  graph 

3)  query  an  old  graph 

LVRNTP  must  be  set  to  one,  two,  or  three  to  indicate  the  type  of  program  to  be 
executed . 

It  is  more  efficient  for  pages  (and  continuants  of  those  pages)  to  be  initial¬ 
ized  at  the  beginning  of  execution  of  a  program  than  to  be  created  on  demand.  Set 
LVHRPG  to  the  highest  page  number  desired.  There  is  a  limit  of  63  pages  unless 
LVSFSZ  is  modified.  LVSFSZ  is  the  node  suffix  size  and  has  a  default  size  of  ten 
bits,  which  allows  for  a  maximum  continuant  size  of  2^-1  or  1024.  The  prefix 
size  is  therefore  six  bits  which  allows  for  2^-1  or  63  pages.  Changing  the  suffix 
size  will  modify  these  upper  limits  accordingly.  If  LVSFSZ  is  modified,  the  prefix 
and  suffix  masks,  named  LVMSPF  and  LVMSSF,  must  be  updated  accordingly.  For  example, 
if  LVSFSZ  is  set  to  12,  set 

LVMSPF  to  170000 
and  LVMSSF  to  7777 

Continuants  for  each  page  may  be  initialized  as  follows: 
th 

Set  the  I  location  in  array  LVSTAKO  to  the  number  of  continuants  de- 
thi 

sired  (beyond  the  zero  )  for  page  I.  There  is  a  limit  of  63  extra  continuants  per 
page.  Set  the  rest  of  the  140  locations  in  LVSTAKO  to  zero. 

To  initialize  the  random  number  generator  (LVGRN),  set  LVKPRM  to  the  first  prime 
number  >.(/LVVSZE) /2 . 

Finally,  before  calling  LVSETP,  an  output  file  to  contain  error  statements 
should  be  assigned  a  logical  unit  number  (LVLUN).  The  following  statements,  for 
example,  will  work  on  the  RT-11  operating  system  for  the  PDP-11  computer: 

LVLUN  -  17 

CALL  ASSIGN (1 7, 'SY: ERROR. ERR' ,12) 

When  an  identifier  is  defined  by  the  random  number  generator  (LVGRN),  it  is 
given  a  prefix  (a  page  definition)  and  a  suffix  (a  random  number,  unique  to  that 
page).  The  user  must  assign  the  prefix  via  LVREQP(l).  The  value  range  for 
LVREQP(l)  is  1  to  63. 

Note  that  if  LVDUMP  is  called,  up  to  228  variables  may  be  automatically  saved 
at  the  end  of  a  program  if  they  are  placed  into  COMMON  /LVUSER/. 


Subroutine  LVSETP 


Function: 

Initializes  the  I/O  channels  for  the  files  containing  the  old  and  new  graphs. 
Initializes  those  variables  needed  for  Subroutine  LVGRN.  Initializes  the  in-core 
and  out-core  directories.  Initializes  all  requested  continuants  and  places  them 
onto  disk. 

Calling  Format: 

CALL  LVSETP 


Input  Parameters: 


(In  COMMON 
LVHRPG 
(In  COMMON 
LVKPRM 
(In  COMMON 
LWSZE 

LVNCOR 

LVSFSZ 
(In  COMMON 
LVRNTP 


/LVREGS/) 

Highest  initially  requested  page.  No  default. 
/LVRAND/) 

First  prime  number  >_(/LWSZE) /2 . 

/LVBUFR/) 

Continuant  size;  similar  to  MEMSZE  from  in-core 
GIRS.  No  default. 

Number  of  continuant  slots  in  the  in-core  GIRS 
buffer.  No  default. 

Node  suffix  size,  default  is  ten  bits. 

/LVRUN/) 

Type  of  run: 

»  1  Create  a  new  graph  (default) 

-  2  Update  an  old  graph 

-  3  Query  an  old  graph 


Comments: 

LVSETP  must  be  the  first  GIRS  subroutine  called  by  the  driving  program  since 
it  is  the  main  initialization  routine.  Before  initializing  the  GIRS  buffer  and 
other  tables,  the  user  is  prompted  at  the  teletype  for  file  names  for  the  old  and 
new  graphs.  The  user  response  must  include  both  names,  in  command  string  format, 
even  if  only  one  is  needed.  The  default  extension  for  both  file  names  is  .GRF. 

LVSETP  is  in  overlay  region  1,  segment  "SETPOP". 
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Program  Length: 


8  10 
Subroutines  Called: 


LVFECH 

LVDRWR 

ICSI 

LVGRN 

LVMSA 

IGETC 

LVPAGW 

LVFIND 

IFETCH 

LVNSRT 

LVPAGR 

IENTER 

LOOKUP 

Called  by  the  Following  Subroutines: 
LVNPAG 
LVNC0N 


A 


Subroutine  LVGRN 

Function: 

Assigns  a  page  and  "random  number,"  which  is  unique  to  that  page,  to  a  given 
GIRS  identifier. 

Calling  Format: 

CALL  LVGRN (NODE) 

Input  Parameters: 

(In  COMMON  /LVREGS/) 

LVREQP(l)  Requested  page  number 

=0,  define  an  identifier  on  a  new  page. 

1  <  n  <  63,  define  an  identifier  on  page  n. 

(In  COMMON  /LVRAND / ) 

LVLIST  Number  of  identifiers  to  be  assigned  random 

numbers.  Default  is  one. 

Output  Parameters: 

(Format  Argument) 

Node  Contains  generated  random  number.  It  must  be 

dimensioned  to  "LVLIST"  if  LVLIST  >  1. 

Comments: 

For  each  page,  a  repeatable  sequence  of  unique  random  numbers  is  generated  in 
the  range  of  1  to  LWSZE.  LVLIST  numbers  are  generated  per  call.  An  attempt  to 
define  more  than  LWSZE  number  of  identifiers  for  any  one  page  will  terminate  the 
program  unless  a  random  number  has  been  "undefined"  by  Subroutine  LVRTRN.  Identi¬ 
fiers  must  be  integers.  The  generated  sequence  has  been  previously  described  by 

2  1 
Berkowitz  and  Zaritsky. 

Equivalent  GIRS  Code: 

Identifiers  may  be  defined  in  GIRL  in  at  least  two  ways.  At  the  beginning 
of  each  routine,  a  list  of  identifiers  may  be  defined  for  page  n  in  the  follow¬ 
ing  manner: 

G  DEFINEn  N0DE1 . NODEk 

Identifiers  may  be  given  random  numbers  at  any  time  with  the  following  code: 

LVREQP(l)  -  "page  number" 

G  S'NODEi 
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Identifiers  may  also  be  defined  during  the  execution  of  an  insertion,  as  discussed 
further  under  "Insertion." 

Program  Length: 


750. 


488. 


'8  "  10 
Subroutines  Called: 

LVLFSH 

LVEXCF 

LVERR 

Called  by  the  Following  Subroutines; 
LVSETP 
LVINEX 


RETRIEVAL  OF  VALUES 
Discussion 

Value  retrieval  is  overseen  by  the  find  executive  routine  LVFDEX.  This  routine 
brings  in  the  proper  continuant  so  that  the  lower  level  routines  LVFIND  and  LVFNV  may 
search  for  the  desired  function  and  value.  If  the  continuant  is  not  specified  (de¬ 
fault)  ,  all  the  continuants  of  the  requested  page  will  be  searched  in  sequential 
order  until  either  the  function  is  found  or  all  the  continuants  have  been  examined. 

If  the  continuant  has  been  specified  and  the  search  is  to  be  from  "top-to-bottom," 
the  search  will  proceed  to  the  next  higher  numbered  continuant  only  if  FLAG-11  has 
been  set  for  that  list.  If  the  continuant  has  been  specified  and  the  search  is  to  be 
from  "bottom-to-top,"  the  search  will  proceed  to  the  previous  (lower-numbered)  con¬ 
tinuant  only  if  FLAG-10  has  been  set  for  that  list. 

LVFDEX  expects  the  user  to  provide  two  find  strategy  routines:  USRFDl  and 
USRFD2.  USRFDl  precedes  the  actual  retrieval,  but  it  is  skipped  if  LVFD1  is  .FALSE, 
(default).  The  retrieval  may  be  skipped  if  LVFD4  is  set  within  USRFDl  to  .FALSE, 
(default  is  .TRUE.).  USRFD2  follows  the  retrieval  but  it  is  skipped  if  LVFD2  is 
.FALSE,  (default).  If  USRFDl  is  called,  LVFD2  may  be  modified  by  LVFD3.  USRFDl  and 
USRFD2  cannot  be  used  recursively. 


Subroutine  LVFDEX 


Function: 

a)  Calls  user  find  strategies  USRFD1  and  USRFD2,  skipping  the  retrieval  If 
LVFD4  Is  .FALSE. 

b)  Brings  In  the  proper  continuant  or  sequence  of  continuants  (If  there  Is 
no  specific  request)  In  preparation  for  the  retrieval. 

c)  Breaks  up  LVFUNC  and  LVARG  into  their  prefix  (page)  and  suffix  (random 
number)  components. 

d)  Oversees  the  following  operations: 

1)  function  address  computation. 

2)  determination  of  function  existence.  If  the 
function  does  exist,  then 

3)  location  of  function  within  the  continuant  (since 
it  may  not  be  first  on  the  conflict  list,  and  may 
therefore  reside  anywhere  in  the  continuant). 

4)  determination  of  whether  the  function  is  an  SVL  or  MVL. 

5)  location  in  continuant  of  preceding  function  on 
the  conflict  list. 

th 

6)  retrieval  of  the  IFCS  value  (and  its  location) 
of  the  type  indicated,  from  the  top  or  bottom 
(depending  on  the  sign  of  IPOS)  of  a  list  of 
values  of  a  specified  function. 

Calling  Format: 

Call  LVFDEX (INDEX , INDXAD , KFUNC , KARG , S AVCON ) 

Input  Parameters: 

(In  COMMON  /LVARGS/) 

LVFUNC  Link  of  the  triple,  also  known  as  the  function.  The 

value  in  IFUNC  must  contain  both  a  prefix  (page  number) 
and  a  suffix  (random  number)  as  defined  by  a  call  to  LVGRN. 

LWARG  Source  node  of  the  triple,  also  known  as  the  argument  of 

the  function.  The  value  in  IARG  must  contain  both  a  prefix 
(page  number)  and  a  suffix  (random  number)  as  defined  by 
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LVGRN.  The  source  node  prefix  determines  the  page  placement 
of  the  function  and  hence  the  page  on  which  to  search. 

LWPOS  Position  in  the  multivalue  list,  IPOS  locations  from  the  top 

(if  IPOS  is  positive)  or  from  the  bottom  (if  IPOS  is  negative) 
If  ITYP  is  specified,  only  that  type  of  value  is  considered  in 
determining  the  position. 

LVVTYP  Type  of  value  to  be  retrieved: 

•  0  Random  number  plus  page 

-  1  Integer  data 

»  2  Hollerith  data 

«  3  No  specified  type  (default  value) 

LVSKIP  Saved-index  defeat  switch.  If  LVSKIP  -  1,  the  saved-index 

operation  is  skipped;  otherwise  the  saved-index  feature  is  in 
effect.  LVSKIP  can  be  set  either  at  the  start  of  the  program 
or  just  before  a  call  to  LVFDEX  (after  which  it  may  be  reset). 
The  saved-index  feature  is  described  by  Zaritsky. 

(In  COMMON  /LVREGS/) 

LVREQP ( 2 )  Requested  continuant: 

■  -2  continuant  unspecified 

0  £  n  £  63,  continuant  n  is  requested 
(In  COMMON  /LVSWIT/) 

LVFD1  »  .TRUE.  call  user's  first  retrieval  strategy 

routine. 

«  .FALSE.  skip  user's  first  retrieval  strategy 
routine  (default) 

LVFD2  -  .TRUE.  call  user's  second  retrieval 

strategy  routine. 

-  .FALSE.  skip  user's  second  retrieval 

strategy  routine  (default) 

(Input  from  USRFD1] 

LVFD3  may  be  used  to  modify  LVFD2 

LVFD4  «  .TRUE.  proceed  with  the  retrieval  (default) 

■  .FALSE.  skip  the  retrieval 
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(Formal  Parameter  Set) 

The  formal  parameter  set  is  needed  by  LVFDEX  when  the  aaved-index  option  is 
to  be  used.  The  parameter  set  consists  of  five  variables,  each  of  which  must  be 
unique  for  each  new  call  to  LVFDEX  involving  a  saved  index. 

KARG  Source  node  associated  with  a  particular  call  to  LVFDEX 

KFUNC  Link  associated  with  a  particular  call  to  LVFDEX 

INDEX  Position  in  the  list  of  the  value  retrieved  from 

the  most  recent  call  to  LVFDEX.  If  INDEX  is  negative, 
it  is  the  position  from  the  bottom  of  the  list. 

INDXAD  Location  in  continuant  SAVCON  of  the  value  retrieved 
from  the  most  recent  call  to  LVFDEX 
SAVCON  Continuant  on  which  list  resides 
Output  Parameters: 

(In  COMMON  /LVARGS/) 

LVVPOS  Set  to  1  (default  value) 

LVVTYP  Set  to  3  (default  value) 

LVVAL  Retrieved  value  (LVVPOSth  value  of  the  type  LVVTYP). 

LVVAL  is  set  to  LVVARG  if  the  value  cannot  be  found. 

LVVTR  If  the  LVVPOSth  value  of  the  LVVTYP  exists, 

LVVTR  -  1;  otherwise  LVVTR  -  -1. 

(In  COMMON  /LVREGS/) 

LVCUPG(I)  Current  page.  If  LVVTR-1,  LVCUPG(l)  is  set  to  the  page 
containing  the  requested  function. 

LVCUPG(2)  Current  continuant.  If  LVVTR"1,  LVCUPG(2)  is  set  to  the 
particular  continuant  containing  the  requested  function. 
Equivalent  GIRL  Code: 

C  SET  LVREQP(2 )  TO  THE  REQUESTED  CONTINUANT,  IF  DESIRED. 

G  NODE+LINK. tsJ 

where  t  is  the  type  of  value  to  be  retrieved: 

■  "  Identifier  (node  defined  by  LVGRN) 

-  .  Integer  value 

»  /  Hollerith  value 

»  "blank"  Any  type  value 
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s  la  the  Indicating  direction  of  search: 

■  +  or 

’blank"  Search  from  top  of  list 

“  ~  Search  from  bottom  of  list 

J  Is  the  same  as  IPOS  (-LWPOS) 

Program  Length: 


1254 


8 


686 
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Subroutines  Called: 

LVSTAC  LVFIND  LVRTSH  LVBOTM 

LVPOP  LVFNV  LVEXCH 

Called  by  the  Following  Subroutines: 

LVDLEX  LVINEX  LVINCL 


RETRIEVAL  OF  MVL  INDEX  OF  GIVEN  VALUE  OF  A  FUNCTION  (INCLUSION) 
Subroutine  LVINCL 


Function: 

Determine  the  first  MVL  position  of  a  given  value. 

Calling  Format: 

CALL  LVINCL 
Input  Parameters: 

(In  COMMON  /LVARGS/) 

LVVINC  Value  on  which  the  list  position  is  to  be  determined 

Output  Parameters: 

(In  COMMON  /LVARGS/) 

LVVPOS  First  position  in  the  MVL  in  which  the  indicated  value 

is  found 

LVVINC  **  1  Desired  value  has  been  found  on  the  MVL 

-  -1  Desired  value  has  not  been  found  on  the  MVL 
LVVTR  Same  as  LVVINC 

Equivalent  GIRL  Code: 

Use  of  the  GIRL  inclusion  operator  can  best  be  explained  with  three  examples 
Further  discussions  and  examples  are  given  in  Berkowitz.5 

Assume  for  all  examples  that  the  source  node  is  NODE  and  the  link  is  LINK: 
Delete  value3  on  the  MVL 

G  NODE+LINK-. :value3 

Determine  the  position  of  valuei  (if  such 
a  value  exists)  on  the  MVL  and  name  it 
INDEX;  otherwise  transfer  to  fail. 

C,  NODE+LINK  va  lue  i /fail ':  INDEX 
Replace  valuei  on  the  MVL  with  value2. 

G  NODE  LINK:  valuei  value2 


Example  1. 

Example  2. 


Example  3. 


Program  Length: 

2308  15210 
Subroutine  Called: 


LVFDEX 


INSERTION 

Discussion 

The  insertion  operation  is  overseen  by  the  Insert  Executive  Routine  LVINEX. 
This  routine  ensures  that  the  triple  is  completely  defined  and  then  determines 
placement  of  that  triple.  If  the  triple  is  already  fully  defined,  the  requested 
page  is  determined  by  the  prefix  of  the  source  node  (LVVARG).  It  is  in  the  domain 
of  insertion  that  a  new  page  or  continuant  can  be  requested.  If  a  particular  con¬ 
tinuant  is  not  requested  and  the  function  did  not  previously  exist,  the  triple  is 
placed  on  the  (sequentially)  first  continuant  with  available  space.  If  a  value  is 
to  be  added  to  a  list  that  has  been  specifically  placed  on  a  particular  continuant, 
but  a  different  continuant  is  specifically  requested,  subroutine  LVREOR  reports  an 
error.  The  insertion  proceeds,  however,  with  the  entire  list  moved  onto  the  newly 
requested  continuant. 

LVINEX  expects  the  user  to  provide  two  insertion  strategy  routines: 

USRIN1  and  USRIN2.  USRIN1  precedes  the  actual  insertion,  but  it  is  skipped  if 
LVIN1  is  .FALSE,  (default).  The  insertion  may  be  skipped  if  LVIN4  is  set  within 
USRINI  to  .FALSE,  (default  is  .TRUE.).  USRIN2  follows  the  insertion,  but  it  is 
skipped  if  LVIN2  is  .FALSE,  (default).  If  USRINI  is  called,  LVIN2  may  be  modi¬ 
fied  by  LVIN3.  USRINI  and  USRIN2  cannot  be  used  recursively. 
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Subroutine  LVINEX 


Function: 

a)  Calls  user  insertion  strategies  USRIN1  and  USRIN2,  skipping  the  insertion 
if  LVIN4  is  .FALSE. 

b)  Ensures  that  the  source  node,  link  and,  if  a  random  number,  the  sink  node 
are  all  completely  defined  (contain  both  a  prefix  and  suffix). 

c)  Determines  on  which  page  and  continuant  to  place  the  triple  and  brings 
that  continuant  into  the  buffer,  if  necessary. 

d)  Oversees  the  actual  insertion  by  Subroutine  LVNSRT. 

Calling  Format: 

CALL  LVINEX 
Input  Parameters: 

(In  COMMON  /LVARGS/) 

LVFUNC  Link  of  the  triple,  also  known  as  the  function. 

A  fully  defined  link  contains  a  prefix*  (page 
number)  and  a  suffix  (random  number)  as  given 
by  LVGRN . 

«=  0  Define  the  link  with  a  prefix  set 

to  the  current  page 

=  1  <.  n  £  63  Define  the  link  with  a  prefix  set 
to  n 

LVVARG  Source  node  of  the  triple,  also  known  as  the 

argument  of  the  function.  The  prefix  of 
LVVARG  determines  on  which  page  to  place  the 
triple.  A  fully  defined  node  contains  a  prefix  and 


♦Unless  modified  by  the  user,  the  prefix  consists  of  the  leftmost  six  bits  of 
the  node  or  link. 
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LVVNVL 

LVTYPE (10) 

LVVALS (10) 


LVNTYP 


a  suffix  as  given  by  LVGRN.  Otherwise, 

=  -1  Place  triple  on  a  new  page  and  define  the  node 

=  0  Place  triple  on  the  current  page  and  define  the 

node 

l_<n<63  Place  triple  on  page  n  and  define  the  node 
Number  of  values  (up  to  ten)  to  be  inserted  (default 
is  1) 

Type  of  each  value  in  LVVALS (i)  to  be  inserted: 

=  0  Random  number  (default  value) 

=  1  Integer  data 
»  2  Continuing  Hollerith  data 
=  3  The  only  or  final  cell  or  a  Hollerith 
data  string 

Array  containing  the  values  or  sink  nodes  to  be  inserted. 

LVVALS (i)  may  contain  any  of  the  following  types  of 
values : 

.  Random  number,  as  defined  by  LVGRN 

2 

.  Integer  data;  see  Berkowitz  for  limitations  on  Integer  data 

2 

.  Hollerith  data;  see  Berkowitz  for  limitations  on  Hollerith 
data 

If  LVTYPE(i)  =  0  (random  number),  LVVALS(i)  may  also  take 
on  the  following  forms: 

*  -I  Define  the  sink  node  with  a  prefix  = 

"current  page  +1” 

=  0  Define  the  sink  node  with  a  prefix  set  to 

the  current  page 

l<n<63  Define  the  sink  node  with  a  prefix  set  to  n 
Orientation  of  insertion 
=  0  Insert  sink  node  (default) 

=  I  Insert  source  node 
=  2  Insert  link 
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LVNDXN 


Type  of  insertion  to  be  made: 

-  0  Normal  insertion;  the  triple  is  always  placed  at 
the  end  of  the  (null)  list.  This  is  the  default 
value. 

-  1  Destructive  insertion;  the  contents  of  the  LWPOS**1 
member  of  the  LWTYP  type  (counting  from  the  top 
or  bottom  of  the  list,  depending  on  the  sign  of 
LWPOS)  are  replaced  by  the  contents  of  LWALS(l). 

-  2  Nondestructive  insertion;  the  contents  of  LWALS(l) 
are  wedged  into  the  list,  making  the  new  value  the 
LWPOSth  member  of  the  LWTYP  type  from  the  top 
or  bottom  of  the  list  (depending  on  the  sign  of 
LWPOS) . 

The  following  two  variables  are  needed  only  if  LVNDXN  -  1  or  2: 

LWPOS  LVNSRT  will  place  the  value  to  be  inserted  LWPOS 

locations  (as  modified  by  LWTYP)  from  the  beginning  or, 
if  negative,  from  the  end  of  the  list. 

LWTYP  Type  of  value  to  be  counted  when  attempting  to  insert  a 

value  at  LWPOS  locations  from  the  beginning  or  end  of 
a  list. 

(In  COMMON  /LVREGS/) 

LVREQP(2)  Requested  continuant.  Note  that  LVREQP(l)  contains  the 
requested  page  which  is  extracted  from  LWARG. 


-  -1 

Request  new  continuant 

-  -2 

Continuant  unspecified  (default) 

-  -3 

Current  continuant  (if  current  page 

quested  page) 

0  <  n  _<  63 

Continuant  n  is  requested 

(In  C  ''MON 

/LVSWIT/) 

LVIN1 

-  .TRUE. 

Call  user's  first  insertion  strategy 

routine 

-  .FALSE. 

Skip  user's  first  insertion  strategy 

routine  (default) 
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LVIN2  -  .TRUE.  Call  user's  second  Insertion  strategy  routine 

=*  .FALSE.  Skip  user's  second  insertion  strategy  routine 
(default) 

(input  from  USRIN1) 

LVIN3  May  be  used  to  modify  LVIN2 

LVIN4  »  .TRUE.  Proceed  with  the  insertion  (default) 


LVIN4 


.FALSE.  Skip  the  insertion 


Output  Variables: 

(In  COMMON  /LVARGS/) 


LWPOS 

LWTYP 

LVVAL 

LVVNVL 

LVVTR 


Set  internally  to  1  (default  value) 

Set  internally  to  3  (default  value) 

Set  internally  to  LVVALS(l) 

Set  internally  to  1  (default  value) 

«  -1  Function  did  not  exist  prior  to  this 
insertion 

=  1  Function  did  exist  prior  to  this 

insertion 


LVNDXN  Set  internally  to  0  (default  value) 

(In  COMMON  /LVREGS/) 

LVCUPG(l)  Current  page  (as  a  result  of  this  insertion) 

LVCUPG(2)  Current  continuant  of  current  page.  (Contains  inserted 
triple. ) 

Equivalent  GIRL  Code: 

Assume  that  N0DE1  is  the  source  node  and  LINK1  is  the  LINK  and  (in  the  first 
four  examples)  both  N0DE1  and  LT.NK1  have  been  initialized  in  a  DEFINEn  statement: 

1)  Add  random  number  value!  to  the  (null)  list: 


N0DE1 


LINK1 


valuei 


2)  Add  Integer  I  to  the  end  of  the  list 


N0DE1 


LINK1 


3)  Place  valuei  in  the  third  location  from  the  bottom  of  the  list. 


NOD  El 


LINK1 


valuei 


4)  Replace  the  second  integer  value  from  the  top  of  the  list  with 
the  integer  10. 


N0DE1 


LINK1-..2 
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5)  Assign  a  random  number  to  valuei  (for  the  current  page)  and  place  the 
triple  on  page  5,  continuant  0. 

NODEl  -  5 
LVREQP(2)  -  0 
VALUEI  =  0 

G  N0DE1  LINK1  VALUEI 
PRINT  NODEl,  VALUEI 

6)  Place  each  of  the  following  ten  triples  on  new  pages,  assign  random  numbers 
to  the  source  nodes,  links,  and  sink  nodes,  and  define  each  of  the  links  and  sink 
nodes  to  the  page  which  is  current  at  the  time  of  definition  of  the  source  node. 

The  triples  will  automatically  be  placed  on  the  zeroth  continuants  of  each  new  page. 

DO  5  I  =  1,  10 
NODE  -  -1 
LINK  -  0 
SINK  -  0 

G  NODE  LINK  SINK 

PRINT  NODE,  LINK,  SINK 

5  CONTINUE 

7)  Define  N0DE1,  LINK1,  SINK  to  page  3,  place  this  triple  on  continuant  2,  and 
call  the  first  insert  strategy  routine. 

G  DEFINE3  N0DE1,  LINK1 ,  SINK 


LVIN1  =  .TRUE. 
LVREQP(2)  =  2 
G  NODEl  LINK1  SINK 


Program  Length; 
16228 


914 


10 
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Subroutines  Called; 


LVSTAC 

LVLFSH 

LVPOP 

LVRTSH 

LVNPAG 

LVERR 

LVGRN 

LVEXCH 

LVNCON 

LVFDEX 

LVREOR 

LVEIND 

LVOVER 
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Subroutine  LVREOR 

Function: 

To  move  a  list  from  its  present  location  to  a  new  continuant  as  specified  by 
REQCON . 

Calling  Format: 

CALL  LVREOR (REQCON) 

Input  Parameters: 

(Formal  Parameter  Set) 

REQCON  The  list  is  to  be  moved  from  continuant 

"LVREQP(2)"  to  continuant  "REQCON"  of  page 
"LVREQP(l). 

Comments: 

Subroutine  LVFDEX  must  be  called  immediately  prior  to  a  call  to  this  routine. 

If  the  original  list  was  specifically  placed  on  LVREQP(2),  an  error  message  is 
written  out.  Two  continuants  may  be  MERGEd  together  by  calling  LVFDEX  and  this 
routine  once  for  each  function  in  the  original  continuant  (LVREQP(2)).  A  particular 
list  may  be  SEPARATEd  from  one  continuant  and  placed  on  another  (REQCON)  in  the  same 
fashion.  The  present  version  of  LVREOR  expects  a  new  triple  to  be  added  to  contin¬ 
uant  REQCON  each  time  it  is  called.  Also,  this  triple  must  be  fully  defined. 
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DELETION 

Discussion 

The  delete  operation  is  overseen  by  the  delete  executive  Routine  LVDLEX.  If  no 
continuant  is  requested,  LVDLEX  brings  in  (sequentially)  all  continuants  of  the  re¬ 
quested  page  (as  defined  by  the  prefix  of  the  source  node)  until  either  the  function 
is  located  or  there  are  no  more  continuants  of  the  requested  page. 

LVDLEX  expects  the  user  to  provide  two  deletion  strategy  routines:  USRDL1  and 
USRDL2.  USRDL1  precedes  the  actual  insertion,  but  it  is  skipped  if  LVDL1  is  .FALSE, 
(default).  The  deletion  may  be  skipped  if  LVDL4  is  set  within  USRDL1  to  .FALSE, 
(default  is  .TRUE.).  USRDL2  follows  the  deletion  but  it  is  skipped  if  LVDL2  is 
.FALSE,  (default).  If  USRDL1  is  called,  LVDL2  may  be  modified  by  LVDL3.  USRDL1  and 
USRDL2  cannot  be  used  recursively. 
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Subroutine  LVDLEX 


Function: 

a)  Calls  user  deletion  strategies  USRDL1  and  USRDL2,  skipping  the  deletion 
if  LVDL4  is  .FALSE. 

b)  Searches  in  sequential  order  (unless  the  continuant  is  specified)  the  con¬ 
tinuants  of  the  requested  page  for  the  requested  function. 

c)  Oversees  the  actual  deletion  by  Subroutine  LVDLET. 

Calling  Format: 

CALL  LVDLEX 
Input  Parameters: 

(In  COMMON  /LVARGS/) 

LVFUNC  Link  of  the  triple;  must  be  a  random  number  as  defined 

by  LVGRN . 

LVVARG  Source  node  of  the  triple;  must  be  a  random  number  as 

defined  by  LVGRN. 

LVNDXN  »  0  Delete  entire  function  (default) 

»  1  Delete  specific  value  as  described  by  LVVPOS  and 
LVVTYP 

The  following  two  variables  are  needed  only  if  LVNDXN  «  1: 

LVVPOS  Position  in  the  MVL  of  the  value  to  be  deleted  (number 

of  locations  from  the  top,  if  positive,  and  from  the 
bottom,  if  negative).  If  LVVTYP  is  specified,  only  that 
type  of  value  is  counted  in  determini',;  the  position  in 
the  list.  LVVPOS  is  used  only  for  indexed  deletion. 

LVVTYP  Type  of  value  to  be  deleted  from  a  multivalued  list 

(used  only  for  indexed  deletion) 

-  0  Random  number 

■>  1  Integer  data 

-  2  Hollerith  data 

-  3  No  specified  type  (default  value) 

(In  COMMON  /LVREGS/) 

LVREQP(2)  Requested  continuant 

-  -2  Continuant  unspecified  (default) 

0,<n<63  Continuant  n  is  requested 


(In  COMMON 
LVDL2 


/LVSWIT/) 

-  .TRUE. 

-  .FALSE. 


LVDL2  *  .TRUE. 

-  .FALSE. 


(input  from  USRDL1) 


Call  user's 
Skip  user's 
(default) 
Call  user's 
Skip  user's 
(default) 


first  deletion  strategy  routine 
first  deletion  strategy  routine 

second  deletion  strategy  routine 
second  deletion  strategy  routine 


LVDL3  May  be  used  to  modify  LVDL2 

LVDL4  *  .TRUE.  Proceed  with  the  deletion  (default) 

=  .FALSE.  Skip  the  deletion 


Output  Parameters: 

(In  COMMON  /LVARGS/) 

LWAL  Deleted  value.  If  the  entire  list  is  deleted,  LWAL 

returns  the  first  value  of  the  list. 

LVVTR  Function  indicator.  If  the  function  or  specified  value 

of  that  function  does  not  exist,  the  attempted  deletion 
is  considered  to  have  failed.  LVVTR  is  actually  set  in 


LVFIND  and  LVFNV. 

■  1  Function  exists 

-  -1  Function  does  not  exist 

LWPOS  Set  internally  to  1  (default  value) 

LWTYP  Set  internally  to  3  (default  value) 

LVNDXN  Set  internally  to  0  (default  value) 

(In  COMMON  /LVREGS/) 

LVCUPG(l)  Current  page  (contained  deleted  triple) 
LVCUPG(2)  Current  continuant  of  current  page 
Equivalent  GIRL  Code: 

Assume  N0DE1  Is  the  source  node  and  LINK1  is  the  link. 
Example  1. 


Delete  entire  function  which  begins  on  continuant  2. 

LVREQP (2 )  -  2 
G  NODE 1-LINK1 
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Example  2. 

Delete  the  Ith  value  on  an  MVL,  continuant  Is  not  known. 

G  N0DE1+LINK1-.I 


Program  Length: 


7628 

49810 

Subroutines 

Called: 

LVSTAC 

LVDLET 

LVPOP 

USRDL1 

LVERR 

USRDL2 

LVFDEX 
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DISK  STORAGE  AND  RETRIEVAL  OF  A  GRAPH 
Discussion 

After  a  grsph  has  been  created.  It  may  be  conveniently  stored  In  binary  format 
on  disk  and  later  retrieved  from  disk  via  the  Subroutines  LVDUMP  and  LVFECH.  Al¬ 
though  this  task  can  be  performed  without  these  routines,  their  use  ensures  that  all 
pertinent  variables  will  be  properly  defined.  LVDUMP  also  enables  the  user  to  have 
the  entire  graph,  a  single  page  of  that  graph,  or  the  contents  of  the  buffer  gener¬ 
ated  in  ASCII  format  for  debugging  purposes.  The  dump  is  placed  on  logical  unit 
LVLUN  which  must  be  defined  in  a  call  to  SYSLIB  function  ASSIGN. 

Another  advantage  of  this  arrangement  is  that  it  makes  it  easy  for  the  user  to 
restart  a  program  using  new  data.  The  original  graph  will  be  retrieved  whenever  a 
new  call  to  LVFECH  is  made.  If  LVDUMP  is  called,  up  to  228  identifiers  may  be  auto¬ 
matically  saved  at  the  end  of  a  program  if  they  are  placed  into  COMMON  /LVUSER/. 

The  names  for  the  files  containing  the  old  and  new  graphs  are  declared  at  the 
beginning  of  execution  of  the  program.  A  prompt  character  is  sent  to  the  teletype 
and  the  user  response  must  include  names,  in  command  string  format,  for  both  an  old 
and  new  graphs,  even  if  only  one  is  needed.  The  default  extension  for  both  file 
names  is  .GRF. 
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Subrout  ine  1  VDIMP 


Func  t Ion : 

LVDUMP  will  either: 

a)  Store  the  entire  graph,  pertinent  '’.IKS  svstem  variables,  and  2  2R  ldenttfle 
from  COMMON  /LVUSF.R'  onto  the  output  file  In  a  format  suitable  f  r  later  recovery  b 
Subroutine  LVFECH,  or 

b)  For  debugging  purposes,  create  >o  ASCII  tile  on  logical  unit  LVLUN  consist 
Ing  of  GIRS  system  variables  plus  one  of  the  f s' 1  lowing: 

1)  The  entire  graph 

2)  A  single  page  of  the  graph 

3)  Those  continuants  residing  In  the  buffer  at  the 
time  of  the  call  to  LVDUMP 


Calling  Format : 

CALL  LVDUMP (DUMP) 

Input  Parameters: 

(In  COMMON  /LVFRAM/) 

LVMODE  Determines  whether  to  invoke  function  "a"  or  "h" 

-  LVBNRY  function  "a" 

«  LVBCD  function  "b" 

If  function  "b"  is  Invoked,  the  following  three  parameters  are  needed: 
LVPGS  *  -1  Output  those  continuants  residing  In 

the  buffer  at  the  time  of  the  call  to 


LVDUMP 

=  0  Output  all  continuants  of  all  pages 

l_<n<63  Output  all  continuants  of  page  n 
LVLUN  Logical  unit  number  of  the  ASCII  file  which  will  contain 

the  output  from  LVDUMP.  It  must  be  defined  in  a  CALL  ASSIGN 
statement . 

(Formal  Parameter) 

DUMP  »  0  Output  to  LVLUN  some  of  the  pertinent  GIRS 

variables  found  in  the  labeled  commons 
Output  to  LVLUN  all  the  pertinent  GIRS 
variables  found  in  the  labeled  commons 
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Subroutines  Called: 

LVERR  1.VPAGW 
LWRIT  LVCLOS 
I.VEXEC 


Subroutine  LVFECH 

Function: 

Reads  in  (in  binary  format)  pertinent  GIRS  system  variables,  up  to  228  user 
identifiers  from  labeled  COMMON  /LVUSER/,  and  a  previously  created  graph  from  disk 
into  the  GIRS  buffer.  Then  it  copies  the  graph  onto  a  new  disk  file. 

Calling  Format: 

CALL  LVFECH 
Comments : 

LVFECH  expects  the  disk  file  to  have  been  created  by  LVDUMP.  At  the  beginning 
of  the  program  LVFECH  is  called  by  LVSETP  if  LVRNTP  -  1  or  2.  LVFECH  may  be  called 
by  the  user  directly  if  there  is  a  need  to  reinitialize  the  graph. 

Program  Length: 

10368  54210 
Subroutines  Called: 

LVERR  LVDRRD 

LVPAGR  LVDRWR 

LVMSA  LVPAGW 

Called  by  the  Following  Subroutine: 

LVSETP 
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EXECUTING  A  GIRS  PROGRAM 


GENERAL  DISCUSSION 

GIRS  may  be  used  directly  via  user  calls  to  the  GIRS  subroutines  or  indirectly 
with  the  GIRL  language.  In  either  case,  the  object  code  for  the  driving  program 
must  precede  the  object  code  for  the  GIRS  routines  in  any  LINK-LOAD. 

It  is  generally  more  advantageous  for  the  user  to  use  GIRS  indirectly  via  GIRL, 
since  GIRL  not  only  includes  all  the  capabilities  of  GIRS  but  also  spares  the  user 
from  concern  over  setting  up  all  the  labeled  commons  and  initializing  pertinent 
variables.  The  command  sequences  and  FORTRAN  statements  needed  to  preprocess, 
compile,  link,  and  execute  GIRL/GIRS  programs  on  the  PDP-11  follow. 

INDIRECT  USE  OF  A  GIRS  SUBROUTINE  VIA  GIRL 

A  GIRL  program  must  include  the  following  statements: 

Options  card 

Continuant  specification  card  1 

Continuant  specification  card  2  (if  >25  pages  specified) 

Continuant  specification  card  3  (if  >50  pages  specified) 

First  user  program  card 
or 

$  SUBROUTINE  name 

non-DATA  specification  statements 
G  DEFINEl  var 1 ,var2 , . . . ,  varn  (optional) 

G  DEFINE2  vari,  varj,...,  vark  (optional) 


G  DEFINE63  varx,vary , . . . ,  varz  (optional) 

DATA  string  (optional) 

G  EXECUTE 

GIRL/FORTRAN  executable  code  (no  END  statement) 
G  COMPLETE 
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Other  GIRL/FORTRAN  routines 

(Purely  FORTRAN  routines  may  be  included  here  but  it  is 
faster  to  add  them  later  when  the  object  files  are  linked 
together. ) 

Notes : 

1)  In  the  GIRL/FORTRAN  routines,  GIRL  statements  are  declared  by  placing  a 
G  in  Column  1.  Continuation  cards  are  handled  as  in  FORTRAN. 

2)  The  option  card  has  the  following  entries:  (the  first  three  items  must  be 
entered  in  a  314  format) 

Continuant  size  -  Must  be  set  to  a  multiple  of  64,  with  a  maximum  value  of 
960.*  This  value  determines  the  size  for  all  continuants  of  all  pages. 

It  also  determines  the  maximum  number  of  nodes  which  may  be  defined  for 
each  page.  No  default. 

Number  of  continuants  to  reside  in  the  buffer  -  The  in-core  directory,  the 
continuant  size,  and  this  item  determine  the  size  of  the  buffer.  If  the 
buffer,  which  consists  of  four  arrays  of  equal  size,  will  contain  less  than 
64  continuants,  it  will  have  a  length  of: 

4  *  (64  +  (cont.  size  *  no.  of  conts.  in  buffer)) 

No  default. 

Highest  requested  page  number  -  It  is  more  efficient  to  initialize  pages  at 
the  beginning  of  execution  of  a  program  than  to  create  them  "on  demand." 
Value  range  is  1-63. 


*This  assumes  a  default  prefix  size  of  six  bits  and  suffix  size  of  ten  bits. 
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The  following  options  are  in  free  format  and  must  be  separated  by  at  least  one 
blank  or  comma: 

OUTCOR  Self  explanatory.  Default  is  the  non-paged  "In-Core" 

version  of  GIRS. 

CREATE  Create  a  new  graph  (current  default  value).  Note  that 

CREATE,  UPDATE,  and  QUERY  are  mutually  exclusive. 

UPDATE  Modify  an  existing  graph. 

QUERY  Query  an  existing  graph. 

SUFFIXnn  Allot  nn  bits  for  the  identifier  suffix. 

Default  is  ten  bits. 

$111111  Declare  the  size  of  SEQ.  (An  integer  of  at  most  six  digits 
preceded  by  a  dollar  sign  ($).)  Default  size  is  one 
location. 

PRINT  Print  GIRL  program  on  output  file.  Default  is  no-print. 

COMMENTS  Place  GIRL  code  with  a  G  in  Column  1  into  pre-processed 

FORTRAN  code.  Default  is  no-comment. 

LXX  Declare  the  maximum  allowable  levels  of  parenthesization. 

(An  integer  of  at  most  two  digits  preceded  by  a  letter  L.) 

NOSAVE  Eliminates  the  saved-index  facility,  and  is  therefore 

appropriate  for  short  multivalued  lists.  (See  the  dis¬ 
cussion  of  "saved  index"  by  Zaritsky.S 

3)  Continuant  specification  card(s):  Continuants  for  each  page  may  be  initial¬ 
ized  at  the  beginning  of  execution  of  a  program.  The  value  range  is  0-63.  The 
format  is  2513  for  all  three  continuant  specification  cards.  If  the  "highest  re¬ 
quested  page"  (see  discussion  on  options  card)  has  value  n,  then  n  continuant 
specifications  are  expected  to  be  read  in. 

Preprocessing  and  Compiling  a  GIRL/FORTRAN  Program 

Assume  that  all  the  files  are  to  reside  on  the  system  disk*  and  that  the  GIRL 
program  "USER.GRL"  is  to  be  preproce'  A  and  executed.  The  preprocessor  accepts  the 
GIRL,  FORTRAN,  and  list  file  names  in  ..  nd  String  Interpreter  format  with  default 
file  extension  names  GRL,  FOR,  and  LST,  respectively.  The  preprocessor  will  create 

*The  graph  used  by  the  preprocessor  'PRPGRF.BIN'  must  reside  on  the  system  disk 
drive  ('SY:'). 


a  FORTRAN  file  and  (as  an  option)  a  GIRL  listing.  These  files  are  to  be  named 
"USER. FOR"  and  "USER.LST,"  respectively.  A  copy  of  the  GIRL  listing  will  also  be 
sent  to  the  terminal  if  the  PRINT  option  has  been  requested.  The  periods  and 
asterisks  at  the  beginning  of  lines  are  system  prompt  characters.  The  terminal 
dialog  involved  in  preprocessing  and  compiling  the  GIRL  program  "USER.GRL"  is  as 
follows  (linking  and  executing  the  program  are  described  in  the  next  section): 

Line  No. 

.R  PREP  (1) 

ALL  REAL  VARIABLES  MUST  BE  DECLARED 

ERRORS  ARE  FLAGGED  BY  ****ERROR 

PLEASE  ENTER  FILE  NAMES  IN  COMMAND  STRING  FORM 


*USER»USER  (2) 

or,  if  a  list  file  is  also  desired: 

*USER, USER-USER  (2a) 

.R  FORTRAN  (3) 

.USER-USER/W  (4) 

*~C  (control  C)  (5) 


DIRECT  USE  OF  GIRS  SUBROUTINES 

Calls  to  GIRS  routines  may  be  placed  directly  into  FORTRAN  programs.  Programs 
are  compiled  as  with  any  ordinary  FORTRAN  program. 

Linking  and  Executing  a  GIRL/FORTRAN  Program 

Linking  a  compiled  GIRL  program  is  best  accomplished  indirectly  by  executing  a 
BATCH  program  which  contains  the  link  statements.  If  both  the  user's  program  and 
the  GIRS  routines  reside  on  the  system  disk,  the  BATCH  file  "USER.BAT"  appears  as 
follows : 
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$JOB 

$RUN  LINK 
$DATA 

USER-USER, SYSLIB,RK1:FINDOP,DLETOP/F/C 

NSRTOP/O: 1/C 

DLEXOP/O: 1/C 

DRCTOP/O: 2/C 

OPENOP/O: 2/C 

MSAOP/O: 2/C 

SETPOP/O: 3/C 

SAVEOP/O: 3/C 

SPECOP/O: 3/C 

PAGIOP/O: 4/C 

DIRIOP/0 : 4/C 

UTILOP/O: 5/C 

VALUOP/O: 5/C 

EROP/O: 5 

$EOD 

$EOJ 

The  following  statements  are  needed  to  execute  USER.BAT 
.LOAD  TT.BA 
•ASS  TT,LOG,LST 
•R  BATCH 
*USER 

The  following  steps  should  be  taken  if  the  program  does  not  fit  into  main  memory 
.R  BATCH 
*/U 

.UNLOAD  TT.BA 

The  program  is  now  ready  for  execution. 

.R  USER 
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GIRS  will  immediately  respond  by  printing  out 

PLEASE  ENTER  FILE  NAMES  OF  OLD  AND  NEW  GRAPHS 
IN  COMMAND  STRING  FORMAT  (NEW. EXT  =  OLD. EXT) 

•GRF  IS  ASSUMED  EXTENSION 
*NEWFIL-OLDFIL 

Although  the  program  may  not  need  both  "NEWFIL"  and  an  "OLDFIL,"  dummy  file  names 
must  be  given. 

OVERLAY  STRUCTURE 

An  overlay  structure  has  been  created  to  reduce  the  effective  size  of  out-core 
GIRS  from  13653^  to  8332^  words.  In  general,  the  effective  size  cannot  be 
reduced  further  due  to  the  complex  interrelationships  among  the  subroutines  as  shown 
in  Appendix  B.  However,  under  some  circumstances,  GIRS  subroutines  which  perform 
special  operations  such  as  the  creation  of  a  new  page  on  demand  or  the  dumping  of  all 
GIRS  system  variables  may  be  left  out,  reducing  the  size  even  further.  These  and 
other  special  operations  which  may  be  removed  are  discussed  in  note  3  in  the  section 
on  limitations  and  memory  requirements.  Of  course,  if  a  user  has  subroutines  which 
do  not  use  GIRS,  further  space  may  be  saved  by  linking  them  into  the  three  overlay 
regions . 

The  sizes  (In  words)  of  the  overlay  regions  are  listed  in  Table  4  and  the  over¬ 
lay  structure  is  given  in  Table  5. 


TABLE  4  -  OVERLAY  REGION  SIZES 


OVERLAY  REGION 

OCTAL 

DECIMAL 

Root  Segment 

4531 

2393 

1 

5434 

2844 

2 

345 

229 

3 

4123 

2131 

4 

412 

266 

5 

725 

469 

Total 

20214 

8332 
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TABLE  5  -  THE  OVERLAY  STRUCTURE 


Overlay  Region 

Subroutines  Listed  by  Segment  (Size  In  Decimal  Words) 

Root  Segment 

LVTDEX,  LVFIND,  LVFNV,  LVBOTM,  LVEXCH, 

LVDLET  (2393) 

1 

LVINEX 

LVNSRT 

LVUPDT 

(2844) 

LVDLEX 

(481) 

2 

LVMSA 

(229) 

LVDRCT 

(196) 

L VO PEN 

LVRPLC 

(157) 

3 

LVSETP 

LVGRN 

LVNPAG 

LVNCON 

(2131) 

LVFECH 

LVDUMP 

LVWRIT 

L VC LOS 

(1578) 

LVREOR 

LVOVER 

LVINCL 

(926) 

4 

LVPAGR 

LVPAGW 

(266) 

LWDRRD 

LVDRWR 

(99) 

5 

LVALUE 

LVSUM 

(469) 

LVSTAC 

LVPOP 

LVRTRN 

LVLFSH 

LVRTSH 

(348) 

LVERR 

(21) 

[skeleton  version] 
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LIMITATIONS  AND  MEMORY  REQUIREMENTS 

The  following  limitations  are  bas*'d  jn  the  16-blt  word  size  and  32K  memory  of 
PDP-11  computer.  A  default  sui'ix  size  of  ten  bits  is  assumed. 

maximum  number  of  pages  »  63 
(numbered  1  to  63) 

maximum  number  of  continuants/page  »  64 
(numbered  0  to  63) 
prefix  size  ■  6  bits  -  2^  -1  *  63 
suffix  size  =  10  bits  -  210  -1  -  1023 
maximum  continuant  size  -  960 
maximum  range  of  node  values/page  »  1-958 

Maximum  size  for  user  program  and  GIRS  buffer: 

approximately  9900  words 

Notes: 

1)  The  GIRS  buffer  consists  of  the  four  arrays  NODSPC,  LSTSPC,  LNKSPC,  and 
FLGSPC  from  labeled  commons  LWTR1  ,LWTR2,  LWTR2,  and  LVVTR4,  respectively. 

2)  The  size  of  each  array  is  determined  as  follows: 

length  -  64*  (  (LVNCOR/ 64)+l  )+L'^NC0R*  (LVHDRS+LWSZE) 

where  LVHDRS  is  internally  defined  to  two  and  LWSZE  (the  continuant  size)  must  be 
two  less  than  a  multiple  of  64. 

3)  Special  functions  may  be  eliminated  from  the  GIRS  package  if  not  needed. 

Of  course,  this  will  result  in  a  linkage  error  message:  UNDEF  GLOBALS.  The  follow 
ing  subroutines  may  be  considered:* 


*A11  subroutine  lengths  are  in  decimal  words 


Overlay  Region  1 
Segment  1 
LVINEX 

LVNSRT  List  insertion  package  (2844) 
LVUPDT 
Segment  2 

LVDLEX  List  deletion  executive  (481) 


Overlay  Region  3 
Segment  1 


LVGRN 
LVNPAG 
LVNCON 
Segment  2 
LVFECH 
LVDUMP 
LVWRIT 
LVCLOS 
Segment  3 
LVREOR 

LVINCL 


Generate  a  random  number  (481) 

Create  a  new  page  on  demand  (139) 

Create  a  new  continuant  on  demand  (227) 

Read-in  a  previously  created  graph  (512) 

Create  either  an  ASCII  dump  of  GIRS  continuants 
or  a  binary  file  which  contains  the  graph  and 
close  that  channel  (1066) 

List  reorganization.  Required  only  if  lists  are  to  be 
placed  on  specifically  requested  continuants  (639) 
Inclusion  operation  (152) 


Overlay  Region  5 
Segment  3 

LVERR  GIRS  system  variable  dump  (1098) 

Note  that  the  LVERR  routine  listed  in  Table  5 
is  only  a  skeleton  version  of  this  routine 


4)  User  subroutines  which  have  no  calls  to  GIRS  routines  may  be  added  to  the 
present  overlay  structure.  The  maximum  sizes  (in  words)  of  the  overlay  regions  are 
as  follows: 

Overlay  region  1  2844 

Overlay  region  2  229 

Overlay  region  3  2131 

Overlay  region  4  266 

Overlay  region  5  469 
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If  NODS PC ,  LSTSPC ,  LNKSPC,  and  FLGSPC  all  have  lengths  of  128  words  and  LVRWBF 
has  a  minimum  length  of  256  words,  the  minimum  space  required  for  GIRS  labeled 
commons  is  1865  words. 


ADDING  A  USER-EMBEDDED  STRATEGY 

INTRODUCTION 

One  of  the  major  goals  of  any  information  retrieval  system  is  to  allow  efficient 
access  to  the  data  base,  most  likely  by  more  than  one  user  and  possibly  by  users  who 
do  not  have  a  sophisticated  knowledge  of  a  computing  environment.  The  Data  Base 
Administrator  (DBA)  may  control  this  situation  at  the  time  that  the  information  is 
organized  and  placed  into  the  data  base  and  also  when  an  attempt  is  made  to  retrieve 
information  from  the  data  base. 

If  the  DBA  is  to  control  the  placement  of  information  into  the  graph  by  and  for 

several  users,  the  DBA  may  wish  to  create  a  graph  partition  strategy  which  is  uni- 

2 

versal  to  that  particular  set  of  users.  As  described  by  Berkowitz: 

"A  typical  STRATEGY  might  be:  "if  the  link  is  A,  place 
•  the  sink  node  on  page  3;  if  the  link  is  B,  place  the  sink 

node  on  page  4;  otherwise  default." 

An  eliicient  graph  partition  would  reduce  disk  I/O  for  retrievals  considerably. 

It  is  reasonable  to  expect  users,  particularly  unsophisticated  users,  to  make 
queries  which  cannot  be  directly  answered  by  the  data  base.  At  the  expense  of  some 
computer  space  and  time,  these  queries  may  be  handled  with  inferential  search  strate¬ 
gies.  For  example,  if  a  particular  retrieval  should  fail,  call  a  retrieval  strategy 

to  determine  whether  the  link  exists  at  some  level  below  the  source  node.  This 

3  2 

technique  is  described  further  by  Zaritsky,  pages  46-51,  and  Berkowitz, 
pages  28-44. 

It  is  also  possible  for  the  data  base  to  adapt  to  the  needs  of  the  users.  For 
example,  a  monitoring  strategy  could  be  created  to  keep  a  "scorecard"  of  imprecise 
queries.  Direct  relationships  might  be  placed  into  the  graph  for  those  queries  made 
most  often. 
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USE 

Paged  GIRS  allows  for  the  Inclusion  of  user  strategies  both  before  and  after 
insertion,  retrieval,  and  deletion  operations.  The  appropriate  GIRS  subroutines 
expect  the  strategies  to  be  named  as  follows: 


Insertion 

USRIN1 

(before) 

USRIN2 

(after) 

Retrieval 

USRFD1 

(before) 

USRFD2 

(after) 

Deletion 

USRDL1 

(before) 

USRDL2 

(after) 

The  following  switches  (all  from  labeled  common  LVSWIT)  are  needed  to  use  the 
strategy.  Variables  with  "IN"  in  the  name  are  used  for  insertion,  those  with  "FD" 
for  retrieval,  and  those  with  "DL"  for  deletion. 

The  "before"  strategies  may  be  skipped  if  LVIN1,  LVFEl,  or  LVDL1  are  .FALSE, 
(default).  The  "after"  strategies  may  be  skipped  if  LVIN2,  LVFD2,  or  LVDL2  are 
.FALSE,  (default).  The  insertion,  retrieval,  or  deletion  operations  may  be  skipped 
entirely  if  LVIN4,  LVFD4,  or  LVDL4  are  set  in  USRIN2,  USRFD1,  or  USRDL1,  respective' 
ly,  to  .FALSE,  (default  is  .TRUE.).  If  the  "before"  strategies  are  called,  LVIN2, 
LVFD2,  or  LVDL2,  may  be  modified  by  LVIN3,  LVFD3,  or  LVDL3,  respectively.  The  user 
strategies  may  not  be  used  recursively. 

PROPOSED  EXTENSIONS 

In  the  near  future,  we  hope  to  merge  the  paged  version  of  GIRS  with  a  paged 
hardware  associative  memory  facility.  The  result  will  be  an  enhanced  system  with 
high  speed  relational  processing. 
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APPENDIX  A 

VARIABLES  IN  LABELED  COMMON 


In  the  following  list  of  all  the  labeled  commons  required  by  out-core  GIRS,  the 
external  names,  as  created  by  the  GIRL  preprocessor,  are  given  for  those  commons 
which  must  be  Included  In  the  user's  main  program.  Otherwise,  Internal  names  are 
used. 

EXTERNAL: 

COMMON  /LVARGS/  LVFUNC  ,LVVARG,LVVPOS  ,LWTYP,LWAL,LWNVL,LVSKIP, 

1  L  WTR ,  L  WINC ,  LVNDXN  ,  LVVALS  (10), LVTYPE  (10), 

2  LVSRSF,LVLNSF,LVSNSF,LVNTYP 
COMMON  /LWSEQ/  LVSIZE.LVSEQl ,LVSEQ2,SEQSPC( 1 ) 

COMMON  /LVRAND/  LVKPRM,LVKS ,LVKY, LVKDY, LVKDX.LVTEMP, LVLIST, 

1  LVNTBL(256) 

COMMON  /LVVTR1 /  NODSPC (buffer  size) 

1  /LWTR2/  LSTSPC (buffer  size) 

2  /LVVTR3/  LNKSPC (buffer  size) 

3  /LVVTR4 /  FLGS PC (buffer  size) 

COMMON  /LVCRNT/  L WGS P , LVCTRL , LVCTR 1 ,LVLSTV ,LVNFRE , LVFREE , LVDREG , 

2  LWMSA.LVPGLC,  LVCRNT 

COMMON  /LVBUFR/  LVVSZE,LVNWCH,LVOLCH,LVCMPR,LVPGHD,LVBFSZ , 

1  LVDRSZ ,LVNCOR,LVHDRS,LVMSAD, 

2  LVSFSZ ,LVBKSZ ,LVDRBK,LVPGH4 

COMMON  /LVREGS/  LVCUPG(4) ,LVREQP(4) ,LVLVPG(4) ,LVMSAR 

1  L VHRPG , LVNMSA , L VHAPG ( 2 ) , LVRCNT , LVUCNT , L VDRPG , 

2  LVDIRC,LVOTLC,LVOTDR(256) , 

3  LVRWBF(4*continuant  size) 

COMMON  /LVPRAM/  L VBFLC , LVLNTH , LVVERR , LVERNO , LVBNRY , LVBCD , 

1  LVMODE.LVPRS.LVLUN 

COMMON  /LVRUN /  LVRNTP.LVCORE 

COMMON  /LVSTAK/  LVLEVL,LVNVAR,LVSTAK(140) 

COMMON  /LVMASK/  LVWRIT ,LVNUSE,LVNWCN .LVMSK3 ,LVMSSF ,LVMSPF 
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COMMON  /LVSWIT /  LVSTP , LVSNGL , LVNXTR, LVI N 1 , LVI N2 , LVFD 1 , 

1  LVFD2.LVDL1 , LVDL2 ,LVIN3 , LVFD3 , LVDL3 , LVDMP , 

2  LVFD4 , LVDL4 , LVI N4 
COMMON  /L VUSER /  IJSER(228) 

COMMON  /LVUTIL/  FI LSPC ( 39 )  .DEFECT ( 2 ) 


INTERNAL: 

COMMON  /LVFLAG /  FLOMSK, FL IMSK, FL2MSK, FL3MSK, FL4MSK, FL5MSK, 

1  FLO  6  7,  FLAG  8,  FLAG  FLAG  10,  FLAG  1  1  ,  FLAG  1 2  ,  FLAG  1  3  , 

2  FLAG  1 4 , FLAG  1 5 

COMMON  /LVHDVL/  THSMSA, REGAS , PAGENO , CONTNO , INSDEL , 

1  US  ECT , HDR FLG , R  EAD  VL , OLDNDH , DNODEH , NROWH , DROWH 

COMMON  /LVFND/  IADD .THIS , LSTHED ,LOC , LAST .LASTLC 

COMMON  /LVFND/  COUNT , ABSPOS , LSTCON 

COMMON  /LVINS 1 /  REORG , FULL .RPLACE 

COMMON  /LVDEL1 /  NUMRET 

Note  that  all  variables  from  labeled  common  LVSWIT  must  be  set  to 
LOGICAL*! . 


APPENDIX  B 


SUBROUTINE  CALLING  STRUCTURE 


This  appendix  lists  all  the  subroutines  in  Out-Core  GIRS  and  the  GIRS 
subroutines  called  by  them: 

SUBROUTINE  LVSETP 
LVFECH 
LVGRNO 
LVPAGW 
LVDRWR 
LVMSAO 
LVPAGR ( ) 

LVEIND 

LVNSRT 

SUBROUTINE  LVMSA(CONNUM) 

LVERRO 

LVDRRDO 

SUBROUTINE  LVClOS 
LVERRO 
LVPAGW 
LVDRWR 

SUBROUTINE  LVDRRD (CHAN) 

LVERRO 

SUBROUTINE  LVDRWR 
LVERR ( ) 

SUBROUTINE  LVPAGR (CHAN) 

LVERRO 

SUBROUTINE  LVGRN (NODE) 

LVLFSH ( , ) 

LVEXCH 

LVERRO 

SUBROUTINE  LVEXCH 
LVDRCT 
LVMSA( ) 

L VO PEN 
LVPAGR ( ) 

LVRPLC 

LVSUM 

SUBROUTINE  LVSTAC 
LVERR ( ) 


SUBROUTINE  LVPOP 
LVERRO 

SUBROUTINE  LVDRCT 
LVSTAC 
LVTIND 
LVPOP 

FUNCTION  LVLFSH(WORD, BITS) 

FUNCTION  LVRTSH( WORD, BITS) 

SUBROUTINE  LVDLEX 
LVSTAC 
LVPOP 

LVFDEX( ,  ,  , ,) 

LVDLET 
LVERR ( ) 

SUBROUTINE  LVDLET 

SUBROUTINE  LVRTRN 

SUBROUTINE  LVFDEX(INDEX, INDXAD.KFUNC , KARG , SAVCON) 
LVSTAC 
LVPOP 
LVRTSH( , ) 

LVEXCH 
LVFIND 
LVFNV (,,,,) 

LVEXCH 

LVBOTM 

SUBROUTINE  LVFIND 
LVERRO 

SUBROUTINE  LVFNV ( INDEX , INDXAD , KFUNC , KARG , SAVCON ) 

SUBROUTINE  LVBOTM 
LVEXCH 
LVERRO 
LVFIND 

SUBROUTINE  LVINCL 

LVFDEX(,,,,) 
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SUBROUTINE  LVINEX 
LVSTAC 
LVPOP 
LVNPAG 
LVGRN ( ) 

LVLFSH( ,) 

LVRTSH( , ) 

LVERRO 

LVEXCH 

LVNCON 

LVFDEX 

LVREORO 

LVNSRT 

LVFIND 

LVOVER 

SUBROUTINE  LVNSRT 
LVUPDT 
LVFIND 
LVFNV (,,,,) 

SUBROUTINE  LVUPDT 

SUBROUTINE  LVREOR (REQCON ) 
LVERRO 
LVEXCH 
LVSTAC 
LVFIND 
LVNSRT 
LVDLET 
LVPOP 

SUBROUTINE  LVOVER 
LVSTAC 
LVDLET 
LVPOP 
LVNSRT 

SUBROUTINE  LVNPAG 
LVMSAO 
LVEXCH 
LVOPEN 
LVSETP 
LVPAGW 
LVRPLC 
LVSUM 
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SUBROUTINE  LVNCON 
LVMSAO 
LVOPEN 
LVSETP 
LVPAGW 
LVPAGRO 
LVRPLC 
LVSUM 

SUBROUTINE  LVERR(DUMP) 

SUBROUTINE  LVOPEN 
LVALUE 
LVPAGW 

SUBROUTINE  LVRPLC 
LVSTAC 
LVFIND 
LVDLET 
LVNSRT 
LVPOP 

SUBROUTINE  LVSUM 

SUBROUTINE  LVALUE 
LVDUMPO 

SUBROUTINE  LVFECH 
LVERR ( ) 

LVPAGRO 

LVDRRDO 

LVDRWR 

LVMSAO 

LVPAGW 

SUBROUTINE  LVDUMP(DUMP) 

LVERR () 

LVWRIT ( , ) 

LVEXCH 

LVPAGW 

LVCLOS 

SUBROUTINE  LVWRIT (NBIAS.NUMBLK) 
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APPENDIX  C 

SUBROUTINE  LISTINGS 


0601 

0002 

0003 


0004 


0005 


0006 

0007 


0008 

0009 

0010 

0011 


0012 

0013 

0014 

0015 


0016 

0017 

0019 

0020 


0021 

0022 


C 

C 

C 

SUBROUTINE  LVFPEX (  INDEX,  INPXAD.KFUNC, KAR6.SAVC0N) 

IMPLICIT  INTEGERiA-Z) 

LOGICAL* 1  SNG1 BK, SETUP, NX! RAN, INI STR, IN2STR,FP1STR,FP2STR.DLISTR, 

1  DL2STR , DUMPFI  ,CURENT,FINPFI  , DLETFI  , NSRTFI  ,FP1TMP, 

2  DL2TMP , IN2TMP .FP2TMP .REORG , FULL, LSTCON , RPLACE 
COMMON  /1VARGS/  IFUNC, 1ARG. IPOS, ITYP, IVAL.NVAL.NSKIP, ITESTR, 

1  I  NCI  UD,  INPXON,  1VALS.  10)  ,  ITYP1  (  10)  .SRCSl'F, 

2  LNKSUF.SNKSUF, 1NSTYP 

COMMON  /IVREGS/  CURPAG '4> , REQPAG'4> ,LSTVPG< 4) .MSARET , 

1  HREQPG , NXTMSA , HACTPG < 2 > , RFADCT , USECNT , D I RP AG , 

2  DIRCVT ,OITLOC, 0UTDIR)256> , RWBUF <  1  > 

COMMON  /IVMASK/  MWR1TE .NOTUSP , NFWCON , FI  GMSK , MASKSF . MASKPF 
COMMON  /IVFIAG/  FI  OMSK. FI  1 MSK , FI  2MSK , FI 3MSK . FI  4MSK , FI  5MSK , FI G67 . 

1  FI  AG8.FI  AG9.F1AG10.FI  AG  1 1. FI  AG12.FI  AG  13. FI  AG! 4, 

2  FI  AG  1 5 

COMMON  /IVCRNT/  REGASP .CTRI PT ,CTRI  1 .LEAST V, NTFRFE, FREE, DREGSP, 

1  MSA ,  PAGI  OC ,  Cl'RENT 

COMMON  /IVBl'FR/  PAGSZF  .NWCHAN  .01  CBAN  .CMPANP.  PAGHDR  .BUFSZE.DIRSZF, 

1  INCORF , HDRSZE .MSADIR, SUFSZE, BI  KSZE.D1RBI K.PAGHD4 

COMMON  /1VHDV1/  THSMSA  ,  REGAS  ,  PAGENO.CONTNO.  INSPEL , 

1  IISFCT  .HDRFI  G,  RFADVI  , 01  DNPH  ,  DNOPEH ,  NROWH .  DROWH 

COMMON  /1VSV1T/  SETUP ,SNGI  BK . NXTRAN , IN ISTR . IN2STR . FP1STR.FP2STR , 

1  DL1STR.DL2STR. I N2TMP , FP2TMP , DL2TMP , DUMPFI  , 

2  FINPFI  .DLETFI  .NSRTFI 

COMMON  A  VPRAM/  BUFI  OC , LENGTH , I ERR , ERRNUM , B I NARY . BCP . MOPE , PAGES , 

1  LUN 

COMMON  /IVFNP/  COUNT , ABSPOS . LSTCON 

COMMON  /1VINS1/  REORG, FULL, RPUCF 
COMMON  /I  VVTR 1/  NOPSPCM) 

1  /I VVTR2/  LSTSPC* I) 

2  /IVVTR3/  LNKSPCH) 

3  /IVVTR4/  FIGSPC*  1) 

C 

D  PAUSE  'IN  LVFPEX’ 

C  THE  PURPOSE  OF  THE  FIND  EXECUTIVE  ROUTINE  IS  TO  BRING  THE  PROPER 
C  CONTINUANT  INTO  THE  BUFFER.  IF  THE  PROGRAMMER  DOES  NOT  SPECIFY  THE 
C  CONTINUANT,  ALL  OF  THE  CONTINUANTS  OF  THAT  PAGE  WILL  BE  SEARCHED  UNTIL 
C  EITHER  A  VALUE  IS  FOUND  OR  ALL  OF  THE  CONTINUANTS  HAVE  BEEN  LOOKED  AT. 
C  IF  THE  CONTINUANT  HAS  BEEN  SPECIFIED,  THE  SEARCH  WILL  PROCEED 
C  TO  THE  NEXT  CONTINUANT  ONLY  IF  FI  AG  11  HAS  BEEN  SET  TOR  THAT  LIST. 

C  IF  THE  CONTINUANT  HAS  BEEN  SPECIFIED,  THE  SEARCH  WILL  PROCEED 
C  TO  THE  PREVIOUS  CONTINUANT  ONI  Y  IF  FI  AG  10  HAS  BEEN  SET  FOR  THAT  LIST. 
C  IF  FP1STR  IS  .TRUE.  USER  STRATEGY  ROUTINE  USRFP1  PRECEEDS 
C  RETRIEVAL  ACTION  AND  CONTINUES  IF  FINPFI  IS  TRUE. 

C  USRFP2  IS  CALLED  AFTER  THE  RETRIEVAL  IF  FP2STR  IS  SET  TO  .TRUE. 

C 

XXX= 1000 

IFMFIGSPC'CTRl  1»REGASP)  . OR . FI  3MSK )  . NE . FI  3MSK > XXX = XXX* XXX 
RFG= NOPSPC  < D I RSZF  *  REGAS ) 

USE = LNKSPC  < D I RSZE ♦ USECT ) 

C  IF'USE .GT . 440)  XXX  =  XXX* XXX 

C  IFMFIGSPC<67).FQ.e>.ANP.<FlGSPC(144).FQ.0>>  XXX=XXX*XXX 

COUNT  =  0 

ABSPOS  =  I ABS  < IPOS) 
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c 

C  CALL  USER'S  FIRST  RETRIEVAL  STRATEGY  ROUTINE  ? 

0023  IF<FP1STR  .EQ.  .FALSE.)  GO  TO  100 

C 

C  TO  PREVENT  RECURSION,  INHIBIT  FURTHER  CALLS  TO  USER  STRATEGY  ROUTINES 
0025  FP1TMP  =  FP1STR 

0026  FP2TMP  =  FP2STR 

0027  FP1STR  =  .FALSE. 

0026  FP2STR  =  .FALSE. 

0029  DL1TMP  =  DL1STR 

0030  DL2TMP  =  DL2STR 

0031  DL1STR  ■=  .FALSE. 

0032  DL2STR  =  .FALSE. 

0033  IN ITMP  *  INISTR 

0034  IN2TMP  =  IN2STR 

0035  INISTR  =  .FALSE. 

0036  IN2STR  =  .FALSE. 

C 

C  SET  UP  FOR  FIRST  USER  ROUT  I NE 
0037  CALL  L VST AC 

0036  CALL  USRFP1 

0039  CALL  LVPOP 

0040  FP1STR  =  FP1TMP 

0041  FP2STR  =  FP2TMP 

0042  DL1STR  =  DL1TMP 

0043  DL2STR  =  DL2TMP 

0044  INISTR  =  IN ITMP 

0045  IN2STR  *  IN2TMP 

C 

C  PROCEED  WITH  RETRIEVAL  7 
0046  IF'FINPFI  .EQ.  .FALSE.)  GO  TO  600 

C 

C  RE0PAG<2>  IS  SET  IN  CALLING  PROGRAM.  DEFAULT  IS  -2  (ANY  CONTINUANT) 
C  SEPARATE  PREFIX  ANP  SUFFIX  FROM  SOURCE  NOPE  (IARG)  ANP  LINK  (IFUNC) 
0048  100  IF'IARG  .IT.  2«*SUFSZE)  RETURN 

0050  REOP  AG  (!)  =  LVRTSB  ( I ARG  .ANP.  MASKPF,  Sl'FSZE) 

0051  SRCSUF  =  IARG  .ANP.  MASKSF 

0052  IF (IFUNC  .IT.  2»»Sl'FSZE)  RETURN 

0054  REQPAGO)  =  LVRTSH(  IFUNC  .ANP.  MASKPF,  Sl'FSZE) 

0055  LNKSl'F  =  IFUNC  .ANP.  MASKSF 

C 

C  IS  SAVED  INDEX  OPTION  ON  ? 

0056  IF'NSKIP  .EQ.  1)  GO  TO  150 

0058  REQPAG(2>  =  SAVCON 

C 

C  REQPAG'2)  IS  SET  AT  THE  ENP  OF  LVFINP  TO  -2,  IF  IT  IS  NOT  RESET  BY  THE 
C  PROGRAMMER  FOR  A  RETRIEVAL,  THEN  THE  REQUESTED  CONTINUANT  IS  SET  TO 
C  ZERO  ANP  A  SEARCH  OF  ALL  CONTINUANTS  IS  ALLOWED. 

C 

0059  150  REQCON  =  REQPAG'2) 

0060  IF(REQPAG'2>  .EQ.  -2)  REQPAG'2)  =  0 

C 

C»*»  BRING  THE  REQUESTED  PAGE,  CONTINUANT  INTO  CORE. 

C  MAKE  IT  THE  CURRENT  PAGE,  CONT  INI'  ANT. 

C 

0062  ITESTR  =  -1 

0063  200  CALL  LVEXCH 
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0064 


0066 


0067 


0068 

0069 


0070 


0072 

0074 

0075 

0076 

0077 

0078 


0080 


0081 

0082 


0083 


0085 


0087 

0088 


0089 

0091 


0092 

0093 


C 

C  HAVE  ALL  CONTINUANTS  OF  REQ(PAGE)  BEEN  EXAMINED 
IF'MSARET  .IE.  0)  00  TO  600 
C 

C  DESIRED  PAGE.  CONTINUANT  IS  NOW  IN  PLACE. 

C  ASSUME  LIST  DOES  NOT  CONTINUE  BFYONP  PRESENT  CONTINUANT 
LSTCON  *  .FALSE. 

C 

C  SEARCH  FOR  FUNCTION  HEAD. 

CALL  LVFINP 
C 

C  FI  AG  CONTINUANT  AS  USED 

FI  GSPC 'CTRI  PT+BDRFI G)  =  FI  GSPC ' CTRI  PT  +HDRFI G)  .AND.  .NOT.  NOTUSP 
LNKSPC  < CTRI PT» USECT )  =  LNKSPC  ' CTRI  PT ♦ USECT )  ♦  1 

C 

C  HAS  THE  FUNCTION  HEAD  BFEN  FOUND  7 
IF'ITESTR  .GT.  0)  GO  TO  300 
C 

C  IF  THE  CONTINUANT  IS  NOT  SPECIFIED,  EXAMINE  NEXT  CONTINUANT. 
IF'REQCON  .NE.  -2)  GO  TO  600 
REQPAG'2)  =  REQPAG'2>  ♦  1 
GO  TO  200 
C 

C  FUNCTION  HEAD  FOUND 
C  SEARCH  FROM  TOP  OR  BOTTOM  OF  LIST  ? 

300  I F  <  I POS )  500,600,410 

C 

400  CALL  LVFINP 

C 

C  DOES  A  PORTION  OF  THE  CORRECT  LIST  RESIDE  ON  THIS  CONTINUANT  ? 

IF'ITESTR  .IT.  0)  GO  TO  450 
C 

C  BEGIN  SEARCH  DOWN  THE  LIST 

4 10  CALL  LVFNV < I NPEX , I NPXAD , KFUNC , KARG , SA VCON ) 

C 

C  FLAG  CONTINUANT  AS  USED 

FI  GSPC  '  CTRI  PT+ HDRFI  G )  =  FI  GSPC 'CTRI  PT*BDRFI  G)  .AND.  .NOT.  NOTUSP 
LNKSPC'CTRI PT*USECT)  =  LNKSPC < CTRI  PT ♦USECT )  ♦  1 
C 

C  SUCCESSFUL  RETRIEVAL  ? 

IF'ITESTR  -GT.  0)  GO  VO  600 
C 

C  DOES  THE  LIST  EXTEND  TO  ANOTHER  CONTINUANT  ? 

IF 'LSTCON  .EQ.  .FALSE.)  GO  TO  600 
C 

C  UPDATE  REQUESTED  CONTINUANT  AND  BRING  INTO  THE  BUFFER 
450  REQPAG'2)  =  REQPAG'2)  +  1 
CALL  LVEXCH 
C 

C  HAVE  ALL  CONTINUANTS  OF  REQ(PAGF)  BEEN  EXAMINED  ? 

IF'MSARET  .IE.  0)  GO  TO  600 
GO  TO  400 
C 

C  SEARCH  FROM  THE  BOTTOM  OF  THE  LIST 
C  BRING  IN  CONTINUANT  CONTAINING  LAST  PORTION  OF  MVI 
500  CALL  LVBOTM 
GO  TO  530 
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0100 
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010S 


0107 
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0109 
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0112 

0113 

0114 
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0123 
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0125 
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0132 

0133 

0134 
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C 

520  CALL  LVFINP 
C 

C  DOES  A  PORTION  OP  THE  CORRECT  LIST  RESIDE  ON  THIS  CONTINUANT  7 
IF'ITESTR  .IT.  0)  00  TO  550 
C 

C  BEGIN  SEARCH  UP  THE  LIST 

530  CALL  LVFNV < INDEX . I NPXAD , KFUNC . KARG , SAVCON ) 

C 

C  FLAG  CONTINUANT  AS  USED 

FI  GSPC < CTRI  PT^HDRFI  G)  =  FI  GSPC'CTRI  PT*HDRFIG)  .ANP.  .NOT.  NOTUSP 
LNKSPC  <  CTRI PT ♦  USECT )  =  LNKSPC  <  CTR1  PT  ♦  USFCT )  ♦  1 

C 

C  SUCCESSFUL  RETRIEVAL  7 

IFHTESTR  -GT.  0)  GO  TO  600 
C 

C  DOES  THE  LIST  EXTEND  TO  ANOTHER  CONTINUANT  ? 

IF'LSTCON  .EQ.  .FALSE.)  GO  TO  600 
C 

C  UPDATE  REQUESTED  CONTINUANT 
550  REQPAG<2)  *  REQPAG<2)  -  1 
C 

C  HAVE  ALL  CONTINUANTS  OF  REQ ( PAGE )  BEEN  EXAMINED  7 
IF<REQPAG)2>  .IT.  0)  GO  TO  600 
C 

C  BRING  REQ(P,C)  INTO  THE  BUFFER 
CALL  LVEXCB 
GO  TO  520 
C 

C  CALL  SECOND  USER  RETRIEVAL  STRATEGY  ROUTINE  7 
600  IF<FP2STR  .EQ.  .FALSE.)  GO  TO  700 
FPITMP  =  FP1STR 
FP2TMP  =  FP2STR 
FP1STR  =  .FALSE. 

FP2STR  =  .FALSE. 

DLITMP  =  DL1STR 
DL2TMP  =  DL2STR 
DL1STR  =  .FALSE. 

DL2STR  *  .FALSE. 

IN1TMP  =  IN1STR 
1N2TMP  «  IN2STR 
IN1STR  =  .FALSE. 

IN2STR  =  .FALSE. 

CALL  LVSTAC 
CALL  USRFP2 
CALL  LVPOP 
FP1STR  *  FPITMP 
FP2STR  =  FP2TMP 
DL1STR  =  DLITMP 
DL2STR  =  DL2TMP 
IN1STR  =  INITMP 
IN2STR  =  IN2TMP 
C 

C  RESET  ’REQUESTED  CONTINUANT’  DEFAULT  TO  ’ANY’ 

700  REQPAG'2)  =  -2 
C  RESET  TO  DEFAULT  VALUES 
IPOS  *  1 

ITYP  =  3 

RETURN 

END 
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c 

c 

0001  SUBROUTINE  LVFINP 

0002  IMPLICIT  INTEGER <A-Z> 

0003  LOGICAL*  1  SNGIBIC, SETUP, NXTRAN , IN 1STR, IN2STR.PP1STR ,FP2STR,DL1STR, 

1  DL2STR.DUMPFI  , CURENT , F 1 NPFI  , DLETFI  , NSRTFt  , 

2  DL2TMP ,  IN2TMP ,  FP2TMP ,  REORG .  FULL ,  LSTCON .  RPLACE 

0004  COMMON  /l VARGS/  IFl'NC,  IARG,  IPOS,  ITYP,  IVAL.NVAL.NSKIP,  ITESTR, 

1  1NCIUD, INPXON, I  VALS< 10) , ITYP 1 (10) .SRCSl'F, 

2  LNKSTF.SNKSUF,  1NSTYP 

0005  COMMON  /I VREGS/  CT'RPAG  <  4 ) , REQPAG < 4 ) , LSTVPG ( 4 ) , MSARET , 

1  HREQPG , NXTMSA , HACTPG  < 2  > ,READCT,USECNT,DIRPAG, 

2  DIRCNT , OITLOC.OITDIR (256)  , RUBUF <  1 ) 

0006  COMMON  /IVMA SK/  MWR1TE,  NOTUSP ,  NEWCON ,  F1GMSK ,  MASKSF ,  MASKPF 

0007  COMMON  /IVFIAG/  F10MSK.F1  1MSK.FI  2MSK ,  FI  3MSK ,  FI  4MSK ,  FI  5MSK ,  FI  Q67 , 

1  FI  AG8,  FI  AGO, FI  AG10, FI  AG!  1  ,F1  AG12.FI  AG13.FI  AG14, 

2  FI  AG  1 5 

0008  COMMON  /I  VCRNT/  REGASP ,CTRI  PT.CTRI  1 , LEAST V , NTFREE , FREE , DREGSP , 

1  MSA, PACT OC, CURENT 

0009  COMMON  /IVBl'FR/  P AGSZE , NWCB  AN , 01  CBAN , CMP ANP , P AGKDR , BPFSZE , D 1RSZE , 

1  1 NCORE ,  HDRSZE ,  MSA  D I R ,  SI'FSZE ,  BI KSZE ,  D I  RBI  K ,  PAGBD4 

0010  COMMON  A  VBDVI /  THSMSA, REGAS ,PAGFN0,C0NTN0, INSPEL, 

1  USECT , HDRFI G , RE ADVI  , 01 DNPB , DNOPEH , NROWB , DROWH 

0011  COMMON  /IVSWIT/  SETUP, SNGI BK.NXTRAN, IN1STR, IN2STR,FP1STR.FP2STR, 

1  DL1STR,DL2STR, IN2TMP , FP2TMP , DL2TMP , DUMPFI , 

2  FI  NPFI  .DLETFI  .NSRTFI 

0012  COMMON  /1VPRAM/  BUFIOC, LENGTH,  IERR.ERRNtOI, BINARY, BCP, MOPE, PAGES, 

1  LUN 

0013  COMMON  /IVADDR/  I ADD , TH IS , LSTHED , LOC , LAST , LASTLC 

0014  COMMON  /I VFNP/  COUNT , ABSPOS , LSTCON 

0015  COMMON  /IV1NS1/  REORG , FULL , RPLACE 

0016  COMMON  /I  WTR 1  /  NOPSPC(l) 

1  A VVTR2/  LSTSPC ( 1 ) 

2  A VVTR3/  LNKSPC < 1 ) 

3  A  VVTR4/  FIGSPC(l) 

C 

C  I ADD  =  (RELATIVE)  COMPUTED  FUNCTION  ADDRESS 

C  THIS  =  (RELATIVE)  LOCATION  OF  FUNCTION  ON  C0NF1 ICT  LIST 

C  LOC  =  (RELATIVE)  LOCATION  OF  RETRIEVED  VALUE 

C  LSTHED  «  -1,  SINGLE  VALUED  LIST 

C  =  0,  NO  LIST  IS  FOVNP 

C  >0,  (RELATIVE)  ADDRESS  OF  FIRST  VALUE 

C  ITESTR  =  1,  RETRIEVAL  IS  SUCCESSFUL  (IVAL  =  RETURNED  VALUE) 

C  *  -I,  RETRIEVAL  IS  FAILURE  (IVAL  =  SOURCE  NOPE) 

C 

D  PAUSE  ’IN  LVFINP’ 

0017  ITESTR  =  1 

0018  I ADD  =  SRCSUF  ♦  LNKSUF 

0019  IF( I ADD  .GT.  PAGSZE)  l ADD  =  IADD-PAGSZE 

0021  IF< IADD  .IE.  PAGSZE)  GO  TO  2 

C 

C  m'NC  OR  IARG  ARE  INCORRECT,  STOP 
0023  TYPE  3,  IFl'NC,  IARG 

0024  3  FORMAT!//,'  ••••ERROR****  LINK  ’,15,’  OR  SOURCE  NOPE  ’,15,’  ARE 

1  UNDEFINED’,/) 

0025  ERRNl'M  =  40 


9026  DUMP  *  0 

0027  CALL  LVFRR  < DUMP ) 

0026  STOP 

C 

0029  2  LSTHED  *  0 

0030  THIS  *  1ADD 

003!  IFMFIGSPC<CTRI  1  ♦  THIS)  .ASP.  FI  5MSK)  .EQ.  0)  GO  TO  99 

C 

C  SEARCH  CONF1  1CT  LIST  FOR  KEY  (IFUNC  OR  LINE) 

0033  1  I F < NOPSPC 1 CTR1 I  ♦  THIS)  .EQ-  IFUNC)  GO  TO  4 

0035  LAST  *  THIS 

0036  THIS  =  LNKSPC'CIRl t  ♦  THIS) 

0037  IFMFIGSPCfCTRI  1  ♦  THIS)  .AMP.  FISMSK)  .ME.  0)  GO  TO  99 

0039  GO  TO  1 

C 

C  THE  FUNCTION  HAS  BEEN  FOUND. 

C  TEST  FOR  SING1E  VALUE  LIST  (SVI  )  OR  MULTIVALUED  LIST  (MVI). 
0040  4  IF<<FIGSPC<CTRI1  ♦  THIS)  .AND.  FI0MSK)  .NE.  0)  GOTO  14 

C 

C  SINGIE  VALUED  LIST. 

0042  LSTHED  =  -1 

0043  LOC  *  THIS 

0044  IVAL  *  LSTSPC<CTRI I  ♦  LOC) 

0045  RETURN 

C 

C  MULTIVALUED  LIST.  OBTAIN  FIRST  VALUE. 

0046  14  LSTHED  *  LSTSPC<CTRI  I  ♦  THIS) 

0047  LOC  *  LSTHED 

0048  IVAL  *  NOPSPC < CTRL  1  ♦  LOC) 

0049  LASTLC  =  LN1CSPC<CTR1  1  ♦  LSTHED) 

0050  RETURN 

C 

C  FUNCTION  IS  NOT  ON  THIS  CONTINUANT 
0051  99  ITESTR  =  -1 

0052  IVAL  -  I ARG 

0053  RETURN 

0054  END 


c 

c 
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0012 

0013 
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0020 

0022 

0024 

0026 

0027 
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0031 


0032 


SVBROIT I NF  LVFNV  <  I  NPEX ,  1 NPXAD ,  KFUNC ,  KARG .  SA VCON ) 

IMPLICIT  INTEGER 'A-Z> 

LOGICAL* 1  SNGI BK , SETUP, NXTRAN , IN1STR, IN2STR , FP I STR , FP2STR . DL1STR , 

1  DL2STR , DUMPFl  .CURENT .FINPFI  , DLETFI  , NSRTFI  , 

2  DL2TMP , I N2TMP , FP2T MP . RFORG , FULL , LSTCON , RPLACE 
COMMON  /IVARGS/  IFUNC , I ARG. IPOS , ITYP , I VAL, NVA.L.NSKIP , ITESTR . 

1  1NC1  UD , INPXON . IVALS' 10) , ITYP1 ( 10) .SRCSUF, 

2  LNKSUF , SNKSUF . 1NSTYP 

COMMON  /IVREGS/  CURPAG'4) , RFQPAG'4) , LSTVPG<4) , MSA RET , 

1  HREQPG,NXTMSA,HACTPG'2> ,RFADCT,USECNT,DIRPAG, 

2  DIRCNT ,OUTLOC,OUTDIR '256> ,RVBUF< 1) 

COMMON  /IVMASK/  MVR ITE,  NOTUSP ,  NFVCON .  FI  GMSK , MASKSF , MASKPF 
COMMON  /I  VFI  AG/  FI  OMSK .  FI  1 MSK  ,  FI  2MSK .  FI  3MSK ,  FI  4MSK ,  FI  5MSK ,  FI  G67 , 

1  FI  AG8,  FI  AG9.FI  AGIO. FI  AG!  1 , FI  AG  12.  FI  AG  13, FI  AG  14, 

2  FI  AG  1 5 

COMMON  /I VCRNT /  REGASP ,CTRI PT ,CTRI 1 .LEAST V , NTFRFE, FREE, DREGSP, 

1  MSA , PAG1  OC , CURFNT 

COMMON  /IVBVFR/  PAGSZE , NVCHAN ,01  CHAN, CMPANP.PAGBDR.BUFSZE, DIRSZE, 

1  I NCORE , HDRSZF , MSA  DIR. SVFSZE , Bl  KSZE , D I  RBI K , P AGBD4 

COMMON  /I  VHDVI /  THSMSA .RFGAS . PAGENO, CONTNO. INSPEL, 

1  USECT , HDRFI  G , RFADVI  , 01  DNPH , DNOPEH , NROWH , DROWB 

COMMON  /IVSVIT/  SETUP, SNGI BK, NXTRAN, IN1STR, IN2STR,FP1STR,FP2STR. 

1  DL1STR , DL2STR , IN2TMP , FP2TMP , DL2TMP , DUMPFI  , 

2  FINPFI  , DLETFI  .NSRTFI 

COMMON  /IVPRAM/  BUFI OC . LENGTH . I ERR , ERRNUM .BINARY. BCP, MOPE, PAGES. 

1  LUN 

COMMON  /IVADDR/  I ADD , TH I S . LSTHED , LOC , LAST , LASTLC 
COMMON  /IVFNP/  COUNT . ABSPOS , LSTCON 

COMMON  /I  V I NS  1 /  REORG, FULL, RPLACE 
COMMON  /I  VVTR 1/  NOPSPC'l) 

1  /IVVTR2/  LSTSPC  <  1 ) 

2  /I VVTR3/  LNKSPC  < 1 ) 

3  /I  VVTR4/  FI  GSPC  <  1  > 

DATA  NF1AG4/  177767/ 

C 

C  LVF1NP  MUST  BE  CALLED  IMMEDIATELY  PRIOR  TO  THE  CALL  TO  THIS  ROITINE 
C  INPUT  IS  EXPECTED  THRU  COMMONS  LVARGS,  LVFNP,  ANP  LVADDR.  THIS  ROUTINE 
C  SEARCHES  THE  MULT  I VALUE  LIST  FOR  THE  IPOS’TH  VALUE  OF  THE  REQUESTED 
C  TYPE.  IF  SVI  ,  TYPE  MUST  BE  EITHER  UNSPECIFIED  OR  CORRECT . 

C 

C  DOFS  THE  FUNCTION  EXIST  ? 

D  PAUSE  ’IN  LVFNV’ 

IF' ITESTR  .IT.  0)  GO  TO  700 
IF 'LSTHED  .GT.  0)  GO  TO  100 
C  SVI  -  DOES  FUNCTION  QUALIFY  ? 

I F < ABSPOS  .NE.  1)  GO  TO  699 

IF' ITYP  .EQ.  3)  GO  TO  700 

ISTYP  =  (FI  GSPC'CTRI  1  ♦  LOC)  .ANP.  FIG67) 

I F ( I ST YP  .EQ.  3) ISTYP  =  2 
IF) ISTYP  .NE.  ITYP)  GO  TO  699 
GO  TO  700 
C 

C  MVI  -  FIRST  VALUE  HAS  ALREADY  BEEN  FOUNT  BY  LVFINP 
100  IF' IPOS  .EQ.  1  .ANP.  ITYP  .EQ.  3)  GO  TO  500 


0034 

0036 
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0054 
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0060 
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0064 
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0060 

0069 

0071 


C  •••  BEGIN  SEARCH 

C  IF  THE  SAVED  INDEX  FACILITY  IS  NOT  TO  BE  USED  GO  TO  200 
120  IF*NSK1P  .EQ.  1)  GO  TO  200 
IF'INDEX  .EQ.  0)  GO  TO  200 
C 

C  SAVED  INDEX  CAN’T  BE  USED  IF  IMMEDIATE  PAST  HISTORY  =  ,  EXED 
C  INSERTION  OR  DELETION. 

IF*  (FIGSPC'CTRI  1  ♦  THIS)  .AND.  FI4MSK)  .NE.  0)  GO  TO  200 
C 

C  SAVED  INDEX  CAN'T  BE  USED  IF  SOURCE  NODE  OR  LINK  HAVE  BEEN  CHANGED 
IFMKFUNC  .NE.  IFUNC)  .OR.  (KARG  .NE.  IARG) )  GO  TO  200 
C 

C  SAVED  INDEX  CAN’T  BE  USED  IF  DIRECTION  OF  SEARCH  HAS  SNITCHED 
IF*  (IPOS* INDEX)  .IE.  0)  00  TO  200 
NDX  *  FIGSPC'CTRI  1  ♦  INDXAD) 

C 

C  SAVED  INDEX  CAN’T  BE  USED  IF  VALUE  AT  SAVED  INDEX  HAS  BEEN  MOVED 
IF*  (NDX  .AND.  F15MSK)  .NE.  0)  GO  TO  200 
C 

C  SAVED  INDEX  CAN’T  BE  USED  IF  VALUE  AT  SAVED  INDEX  HAS  BEEN  REMOVED 
IF* (NDX  .AND.  FI 1MSK)  .EQ.  0)  GO  TO  200 
C 

C  IS  SEARCH  FROM  BEGINNING  FASTER  THAN  FROM  SAVED  INDEX  7 
KNDEX  >  IABS* INDEX) 

IF* ABSPOS  .IT.  2)  GO  TO  200 
IF* (ABSPOS ♦ABSPOS)  .IE.  KNDEX)  GO  TO  200 
C 

C  SAVED  INDEX  CAN  BE  USED,  BEGIN  SFARCB  AT  INDXAD. 

LOC  *  INDXAD 

C  FIND  RELATIVE  DISTANCE  FROM  SAVED  INDEX  AND  DETERMINE  WHETHER  TO 
C  COUNT  UP  OR  DOWN.  IF  REQUESTED  POSITION  IS  Cl  OSER  TO  THE  BEGINNING 
C  OF  THE  LIST  THAN  THE  SAVED  INDEX,  COUNT  UP,  OTHERWISE,  COUNT  DOWN. 

C 

LENGTH  =  INDEX- IPOS 
ABSPOS  *  IABS 'LENGTH) 

IF'LENGTH)  300,450,170 
C 

COUNT  UP  FROM  INDXADD 

C 

170  ITOP  =  0 
GO  TO  420 
C 

C  DO  NOT  USE  SAVED  INDEX.  START  FROM  THE  BEGINNING  OR  END  OF  LIST 
C 

200  FIGSPC'CTRI  1  ♦  THIS)  *  FIGSPC'CTRI  1  ♦  THIS)  .AND.  NFIAG4 
IF'IPOS)  400,699,320 
C 

COUNT  DOWN 
C 

300  LASTLC  *  LOC 

Toe  t  i*a**;pr*fTin  i  +  iivm 

IF*  (FIGSPC'CTRI  1  ♦  LOC)  .AND.  FI9MSK)  .NE.  0)  GO  TO  600 
320  IF'ITYP  .EQ.  3)  GO  TO  330 

ISTYP  *  (FIGSPC'CTRI  1  ♦  LOC)  .AND.  FIG67) 

IF* ISTYP  .EQ.  3) ISTYP  ■  2 
IF* ISTYP  .NE.  ITYP)  GO  TO  300 
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330  COUNT  =  COUNT* 1 

IF 'COUNT  .NE.  ABSPOS)  GO  TO  300 
GO  TO  450 
C 

COUNT  UP  FROM  THE  BOTTOM  OF  THE  LIST 
C 

400  ITOP  *  1 

420  LOC  =  LNKSPC'CTRl  1  *  LOO 
IF* ITOP  .EQ.  1)  GO  TO  430 

IF' (FI  GSPC'CTRI  1  ♦  LSTSPC '  CTRI  1  ♦  LOC))  .AND.  FI  OMSK)  .NE.  0) 
1  GO  TO  650 
430  ITOP  -  0 

IF'ITYP  .EQ.  3)  GO  TO  440 

ISTYP  =  (FI GSPC'CTRI  1  ♦  LOC)  .ANP.  F1G67) 

IF'ISTYP  .EQ.  3) ISTYP  *  2 
IF' ISTYP  .NE.  ITYP)  GO  TO  420 
440  COUNT  =  COUNT*! 

IF 'COUNT  .NE.  ABSPOS)  GO  TO  420 
450  I VAL  =  NOPSPC'CTRI 1  ♦  LOC) 

C 

C  SAVE  INPEX  PARAMETERS  AFTER  SUCCESSFUL  RETRIEVAL 
C 

500  IF'NSKIP  .FQ.  1)  GO  TO  700 
KAKG  =  I ARC 
KFUNC  =  IFUNC 
INPXAD  =  LOC 
INPEX  =  IPOS 
SAVCON  =  CURPAG'2) 

GO  TO  700 
C 

C  POSSIBIE  FAILURE.  DOES  MVI  EXTENP  FORWARD  TO  ANOTHER  CONTINUANT 
600  IF'  (FI  GSPC'CTRI  1  *  LASTLC)  .ANP.  FIAGll)  .EQ.  0)  GO  TO  699 
LSTCON  =  .TRUE. 

GO  TO  699 
C 

C  POSSIBIE  FAILURE.  DOES  MVI  EXTENP  BACKWARD  TO  ANOTHER  CONTINUANT 
650  IF'  (FI  GSPC'THIS)  .AND.  FIAG10)  .EQ.  0)  GO  TO  699 
LSTCON  -  .TRUE. 

C 

C  FAILURE  EXIT 

699  ITESTR  =  -1 

IF'NSKIP  .EQ.  0)  INPEX  =  0 
I VAL  *  IARG 
C 

C  SUCCESS  EXIT,  SET  DEFAULTS. 

700  ITYP  =  3 
RETURN 
ENP 
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C 

c 

c 


SUBROUTINE  LVBOTM 
IMPLICIT  INTEGFR'A-Z) 

LOGICAL* 1  SNG1BK,  SETUP,  NXTRAN, IN ISTR , IN2STR ,FP 1S1 R , FP2STR , DL ISTR , 

1  DL2STR ,  DUMPFI  .CURFNT ,  FINPFI  ,  DLETFI  , NSRTFI  .BAKCON. 

2  DL2TMP , IN2TMP ,FP2TMP , REORG, FULL ,LSTCON, RPLACE 
COMMON  /IVARGS/  IFVNC , 1 AKG. IPOS , ITYP , I VAL.NVAL , NSK IP , ITESTR . 

1  INCI  UD, INPXON. ]VALS< 10) , ITYP 1 < 10) .SRCSVF, 

2  LNKSVF , SNKSUF . INSTYP 

COMMON  /IVREGS/  CURPAG'4) ,RFQPAG<4> ,LSTVPG<4> .MSARET, 

1  HREQPG , NXTMSA ,HACTPG<  2) , READCT , USECNT .DIRPAG, 

2  DIRCNT  ,0UTL0C,0UTDIR1256)  ,RWBUF< 1) 

COMMON  /IVMASK/  MWR I TE , NOTUSP , NFWCON , FI  GMSK , M ASKSF , MASKPF 
COMMON  /IVFIAG/  FI  OMSK ,  FI  1MSK  ,  FI  2MSK ,  FI  3MSX  .FI  4MSK.FI  5MSK.FI  G67, 

1  FIAG0.FI  AG9.FI  AG10.FIAG!  1 ,  FI  AG  12,  FI  AG  13.  FI  AG14, 

2  FI  AG  15 

COMMON  /IVCRNT/  REGASP ,CTRI  PT ,CTRI 1 .LEASTV .NTFRFE, FREE, DREGSP , 

1  MSA  ,  PAGI  OC .  CURENT 

COMMON  /IVBUFR/  PAGSZE , NVCHAN ,01 CBAN, CMPANP.PAGHDR, BUFSZE , D I RSZE , 

1  I NCORF ,  HDRSZE ,  MSADIR,  SI1FSZE ,  BI  KSZE ,  D I  RBI  K ,  PAGBD4 

COMMON  /I VBDV1  /  THSMSA , REGAS , P AGENO , CONTNO , I NSPEL , 

1  USECT  ,  HDRFI  G ,  RE ADVI  ,  01  DNPH ,  DNOPEH ,  NROWB ,  DROWB 

COMMON  /1VSV1T/  SETUP .SNGI BK .NXTRAN , IN ISTR , 1N2STR .FP1STR.FP2STR , 

1  I)LISTR,DL2STR.  IN2TMP  , FP2TMP  , DL2TMP , DUMPFI  , 

2  FINPFI  , DLETFI  .NSRTFI 

COMMON  /IVPRAM/  BUF1  OC, LENGTH, IERR.ERRNUM, BINARY, BCP, MOPE, PAGES, 

1  LUN 

COMMON  /IVADDR/  I ADD , TH I S . LSTHED , LOC , LAST , L ASTLC 
COMMON  /1VFNP/  COUNT , ABSPOS .  LSTCON 

COMMON  /I  VI NS  1/  REORG, FULL, RPLACE 
COMMON  /IVPEL1/  NUMRET, BAKCON 
COMMON  /I  VVTR 1 /  NOPSPC  <  1  ) 

1  /IVVTR2/  LSTSPC  <  1 ) 

2  /IWTR3/  LNKSPC  <  1 ) 

3  /IVVTR4/  F1GSPC<  D 

THIS  ROUTINE  BRINGS  INTO  THE  BUFFER  THE  LAST  CONTINUANT  OF  A  PAGE  WHICH 
CONTAINS  A  PORTION  OF  THE  REQUESTED  LIST. 

ASSUME  THAT  THE  BUFFER  CONTAINS  THE  CONTINUANT  WHICH  HOI  DS  THE  FIRST 
PORT  ION  OF  THE  MVI  . 

PAUSE  ’IN  LVBOTM’ 


0018 

C  SVI 

TMPREQ  =  CURPAG<  2) 

? 

0019 

100 

I F > LSTHED  .GT.  0)  GO  TO 

120 

0021 

I  .ASTLC  =  THIS 

0022 

r 

GO  TO  140 

L 

C  GET 

FIRST  VALUE  ON  MVI 

0023 

120 

£ 

ISTLOC  =  LSTSPC  <CTRI  I  ♦ 

THIS) 

C  GET 

LAST  VALUE  ON  MVI 

0024 

C 

LASTLC  =  LNKSPC 'CTRI  1  ♦ 

ISTLOC) 

C  DOES  THE  LIST  ENP  ON  THIS  CONTINUANT  ? 
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0025  140  IFMFIGSPCiCTRl  1  *  LASTLC)  .AND.  FI  AG  1 1 )  .EQ.  0>  RETURN 

0027  LSTCON  =  .TRUE. 

C 

C  EXAMINE  NEXT  (SEQUENTIAL)  CONTINUANT  FOR  A  PORTION  OF  THE  MV1 
0020  200  REQPAG'2>  =  REQPAG<2>  +  1 

0020  CALL  LVEXCH 

C 

C  ERROR  IF  SET  OF  CONTINUANTS  IS  EXHAUSTED 
0030  IF< MSA RET  .GT.  0>  GO  TO  250 

C  NO  ERROR  IF  SEARCH  ORIGINATED  FROM  LVDLEX 
0032  I F < BAXCON  .EQ.  .FALSE.)  GO  TO  220 

0034  REQPAG*  2>  =  TMPREQ 

0035  RETURN 

C 

0036  220  ERRNl'M  *  42 

0037  DUMP  =  0 

0030  CALL  LVFRR (DUMP) 

0039  STOP 

C 

C  DOES  THIS  CONTINUANT  CONTAIN  A  PORTION  OF  THE  MVI  ? 

0040  250  CALL  LVFIND 

0041  IF( ITESTR  .IT.  0)  GO  TO  200 

0043  TMPREQ  =  REQPAG(2> 

0044  GO  TO  100 

0045  END 


c 

c 

c 

0001  SUBROUTINE  LVINFX 

0002  IMPLICIT  1NTEGFR  < A-Z) 

0003  LOGICAL*)  SNGI  BK .SETUP, NXTRAN, IN1STR, IN2STR , FP1STR,FP2STR ,DL1STR, 

1  DL2STR.DUMPFI  ,CURENT,FINPFl  , DLETFI  .NSRTFI  .FP1TMP, 

2  DL2TMP , IN2TMP, FP2TMP , I NS  I DE , FULL , REORG , LSTCON , NXTCON , 

3  RPLACE 

0004  COMMON  /I  VARGS/  IFl'NC,  I ARG ,  IPOS ,  1TYP ,  IVAL,NVAL,NSK1P,  ITESTR  . 

1  INC1UD, INPXON.IVALS* 10) , ITYP1 ( 10) .SRCSUF, 

2  LNKSUF.SNKSUF. INSTYP 

0005  COMMON  /IVREGS/  CURPAG<4>  ,RFQPAG<4)  ,LSTVPG<4>  .MSARET, 

1  HREQPG,NXTMSA,HACTPG)2)  ,READCT,USECNT,DIRPAG, 

2  D I RCNT , Ol'TLOC  .OUTDIR  * 256)  .RVBUF*  1) 

0006  COMMON  /IVMASK/  MWR I TE , NOTUSP , NEVCON , FI GMSK , MASKSF , MASKPF 

0007  COMMON  /1VF1AG/  FI  0MSK ,  FI  1MSK ,  FI  2MSK .  FI  3MSK  .  FI  4MSK  ,FI  5MSK  ,F1  G67, 

1  FI  AG8.F1  AG9.FI  AG10.FIAG1  1  ,FI  AG1 2,  FI  AG13, FI  AG14, 

2  FI  AG  1 5 

0008  COMMON  /IVCRNT/  REGASP .CVRLPT ,CTRI 1 .LEAST V.NTFREE, FREE, DREGSP, 

1  MSA , PAGI OC , CURENT 

0009  COMMON  /IVBUFR/  PAGSZE , NWCHAN ,01  CBAN, CMPANP.PAGHDR , BUFSZE, DIRSZE, 

1  1 NCORE , HDRSZE , MSA  DIR, SVFSZE , BI  KSZE , D I RBI  K , PAGHD4 

00 1 0  COMMON  /I VHDVI  /  THSMSA , REGAS , PAGENO . CONTNO , I NSPEL , 

1  USECT , HDRFI G , RFADVI , 01 DNPH , DNOPEH , NROVB , DROVB 

0011  COMMON  /IVSWIT/  SETUP , SNGI  BK .NXTRAN, INI STR , IN2STR . FP 1STR.FP2STR . 

1  DL 1 STR . DL2STR , IN2TMP , FP2TMP , DL2TMP , DUMPFI  , 

2  FINPF1  .DLETFI  , NSRTFI 

0012  COMMON  /IVPRAM/  BUFI  OC,  LENGTH  ,  I  ERR,  ERRNI'M,  BINARY ,  BCP,  MOPE,  PAGES, 

1  LUN 

0013  COMMON  /IVADDR/  I ADD .THIS, LSTHED , LOC , LAST , LASTLC 

0014  COMMON  /IVFNP/  COUNT , ABSPOS , LSTCON 

0015  COM.iON  /I  V INS  1  /  REORG. FULL, RPLACE 

0016  COMMON  /IV VTR1/  NOPSPC)  1) 

1  /I VVTR2/  LSTSPC'l) 

2  /IVVTR3/  LNKSPC  <  1 ) 

3  /IVVTR4/  F1GSPCU) 

C 

0017  DATA  INSIDE  /.FALSE./ 

C 

C  THE  INSERT  EXECUTIVE  ROUTINF  COMPLETES  THE  TRIPLE  IF  NECESSARY  ANP 
C  OBTAINS  THE  CORRECT  P,C  FOR  SUBROUTINE  LVNSRT  TO  OPERATE  ON. 

C 

C  IS  LVNSRT  BEING  CALLED  FROM  AN  INSERT  STRATEGY  ROUTINF  ? 

D  PAUSE  'IN  LVINEX' 

0018  I F < INSIDE  .EQ.  .TRUE.)  GOTO  100 

C 

C  TO  PREVENT  RECURSION.  SAVE  THE  FIND  STRATEGY  FI  AGS  ANP  TURN  THEM  OFF 
0020  FP1TMP  =  FP1STR 

0021  FP2TMP  =  FP2STR 

0022  FP1STR  =  .FALSE. 

0023  FP2STR  =  .FALSE. 

C 

C  CALL  USER’S  FIRST  INSERT  STRATEGY  ROUTINE  ? 

0024  IF* IN1STR  .EQ.  .FALSE.)  GO  TO  100 

C 

C  TO  PREVENT  RECURSION,  INHIBIT  CALLS  TO  ALL  USFR  STRATEGY  ROITINFS 
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0026 

0027 

0026 

0029 

0030 

003! 

0032 

0033 


0034 

0035 

0036 

0037 

0036 

0039 

0040 

0041 

0042 


0043 


0045 

0046 

0047 

0049 


0050 


0051 


0052 

0053 


0054 

0056 

0057 

0058 


0059 

0061 

0062 

0063 


IN1TMP  =  IN1STR 
IN2THP  *  IN2STR 
IN1STR  =  .FALSE. 

IN2STR  =  .FALSE. 

DL1TMP  =  DL1STR 
DL2TMP  =  DL2STR 
DL1STR  =  .FALSE. 

DL2STR  =  .FALSE. 

C 

C  SET  UP  FOR  FIRST  USER  ROUTINE 
CALL  LVSTAC 
INSIDE  =  .TRUE. 

CALL  USRIN! 

INSIDE  =  .FALSE. 

CALL  LVPOP 
INISTR  =  IN1TMP 
IN2STR  =  IN2TMP 
DL1STR  =  DL1TMP 
DI.2STR  =  DL2TMP 
C 

C  PROCEED  WITH  INSERTION  ? 

IF'NSRTFI  .EO.  .FALSE.)  GO  TO  1000 
C 

C  •••  ENSURE  THAT  THE  TRIPLE  IS  COMPLETELY  DEFINED  ••• 

C  •••  BRING  IN  REQ(P,C>,  DEFINE  AS  CURRENT(P.C) 

C  TEST  SOURCE  NOPE 

C  IARG  =  -1  PLACE  ON  NEW  PAGE  ANP  DEFINE 

C  =0  PLACE  ON  CURRENT  PAGE  ANP  DEFINE 

C  >=  2**SUFSZF,  ALREADY  DEFINED,  SEPARATE  PREFIX  ANP  SITFIX 

C  =N<2**SUFSZE,  PLACE  ON  PAGE  N  ANP  DEFINE 

100  NXTCON  =  .FALSE. 

REQCON  =  REQPAG'2) 

I F < I ARG  .tg.  -1)  REOCON  =  -1 
IF' IARG)  110,120,130 
C 

C  PUCE  ON  NEW  PAGE  (CONT  =  0) 

110  CALL  LVNPAG 
C 

C  PUCE  ON  CURRENT  PAGE  (ANP  CONT)  ANP  DEFINE  SUFFIX 
120  CALL  LVGRN 'SRCSUF/ 

C 

C  RECONSTRUCT  IARG 

IARG  =  LVIFSIHCURPAGM/.SUFSZE)  .OR.  SRCSUF 
GO  TO  200 
C 

C  A  SPECIFIC  PAGE  IS  REQUESTED 

C  IS  ONLY  THE  SUFFIX  DEFINED  ?  (IF  SO,  IT  IS  A  PAGE  REQUEST  W/O  SUF) 
130  IF'  IARG  .GE.  2»»SUFSZE>  GO  TO  140 
REQPAG'l)  =  IARG 
GO  TO  145 

140  REQPAG ( 1 )  =  LVRTSH (IARG. SUFSZE ) 

C 

C  IMPROPER  PAGE  REQUEST  ? 

IF'REQPAG'l)  .IE.  HACTPG*  1 )  )  GOTO  145 

ERRNUM  =  60 

DUMP  =  0 

CALL  LVERR'DUMP) 
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0064  STOP 

C 

C  TEST  REQUESTED  CONTI  WANT 
C  REQPAG'2>  >=  0,  CONTINUANT  SPECIFIED 
C  -1,  NEW  CONTINUANT 

C  -2,  ANY  CONTINUANT 

C  -3,  CURRENT  CONTINUANT  IF  CURRENT  PAGE  =  REQUESTED  PAGE 
0065  145  IF'REQPAG'2>  .GE.  0)  GO  TO  155 

0067  IF'REQPAG'2>  ♦  2)  150,160,170 

C 

C  CURRENT  CONTINUANT  OF  REQUESTED  PAGE  IF  ALSO  CURRENT  PAGE 
0060  150  REQPAG'2)  =  CDRPAG'2> 

0069  IF'REQPAG'l)  .  NE.  CURPAG  'll)  REQPAG<2>  =  0 

C 

C  BRING  IN  PROPER  CONTINUANT 
0071  155  CALL  LVFXCH 

0072  157  IF'IARG  .GE.  2««SUFSZE>  GO  TO  200 

0074  GO  TO  120 

C 

C  CONTINUANT  NOT  SPECIFIED,  SET  TO  ZERO 
0075  160  RFQPAG  <2>  =  0 

0076  GO  TO  155 

C 

C  CREATE  NEW  CONTINUANT 
0077  170  CALL  LVNCON 

0070  GO  TO  157 

C 

C  TEST  IFl'NC  AND  RECONSTRUCT  IF  NECESSARY 
0079  200  I F < I FVNC  .GE.  2««SUFSZE)  GO  TO  300 

0081  TEMP  AG  =  RFOPAG'll 

0082  REQPAG  ' 1 >  =  IFUNC 

0083  IF'IFUNC  .FQ.  0)  REQPAG '  1 )  =  CURPAG'l) 

0085  RFQPAG' 3>  =  REQPAG' 1 ) 

0086  CALL  LVGRN ' LNKSUF) 

0087  IFUNC  =  LVI  FSH < REQPAG <  3 )  , SUFSZE >  -OR.  LNKSUF 

0088  REQPAG' 1)  =  TEMP AG 

C 

C  TEST  THE  SINK  NOPE  AND  RECONSTRUCT  IF  NECESSARY 
C  RANDOM  NUMBER  ? 

0089  300  IF ' ITYP 1 < 1 )  .NE.  0)  GO  TO  400 

0091  IF' IVALS' 1>  -GE.  2*«SUFSZE)  GO  TO  400 

0093  TEMP AG  =  REQPAG' 1> 

0094  IF' IVALS' 1 ) )  310,320,330 

C 

C  SINK  NOPE  POINTS  TO  NEW  PAGE 
0095  310  REQPAG' 4)  =  HACTPG ' I )  ♦  1 

0096  GO  TO  340 

C 

C  SINK  NOPE  POINTS  TO  CURRENT  PAGE 
0097  320  REQPAG' 4)  =  CURPAG' 1> 

0098  GO  TO  340 

C 

C  SINK  NOPE  POINTS  TO  DIFFERENT  PAGE 
0099  330  REQPAG' 4)  =  IVALS' 1> 

0100  340  REQPAG' 1>  =  REQPAG'4) 

0101  CALL  LVGRN 'SNKSUFl 

0102  REQPAG' 1 )  =  TEMP AG 
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0103  IVALS'l)  =  LVIFSH(REQPAGM)  .SVFSZE)  .OR.  SNKSUF 

C 

C  BEGIN  SEARCH  FOR  EXISTING  LIST 
0104  400  Kl'I.L  =  .  FA1.SF. 

0105  IF < INPXON  . NE .  0)  GO  TO  420 

C 

C  NORMAL  INSERTION.  FIND  BOTTOM  OF  LIST 
0107  410  IPOS  =  -1 

0108  420  TEMPOS  =  IPOS 

0109  TMPREQ  =  RFQPAG'2) 

0110  CALL  LVFPEX 

0111  RFQPAG<2>  =  TMPREQ 

0112  IPOS  =  TEMPOS 

C 

C  LIST  FOUND  ON  REQUESTED  CONTINUANT  ? 

0113  IF< ITESTR  .GT.  0>  GO  TO  500 

C 

C  REQUEST  FOR  NEW  CONTINUANT  < OR  PAGE)  ? 

0115  I F < REQCON  .EQ.  -1)  GO  TO  500 

C 

C  PLACE  NEW  LIST  ACCORPING  TO  RFQPAG<2)  BIT  FIRST  SEARCH  ELSEWHERE 
0117  IPOS  =  TEMPOS 

0118  TMPREQ  =  REQPAG*2) 

0119  RFQPAG<2)  =  -2 

0120  CALL  LVFPEX 

0121  IPOS  =  TEMPOS 

0122  RFQPAG<2>  =  TMPREQ 

C 

C  FOUND  LIST  ON  DIFFERENT  CONTINUANT  ? 

0123  IF< ITESTR  .GT.  0)  GO  TO  450 

C 

C  LIST  IKIES  NOT  EXIST  ON  ANY  CONTINUANT 
0125  IPOS  =  TEMPOS 

0126  CALL  LVFPEX 

0127  IPOS  =  TEMPOS 

0128  KFQPAG<2>  =  TMPRFQ 

0129  GO  TO  500 

C 

C  IF  CONT  WAS  NOT  SPECIFIED,  LIST  FOUND  ON  NON-ZERO ’TH  CONTINUANT 
C  OTHERWISE,  LIST  WAS  FOUND  ON  THE  WRONG  CONTINUANT  AND  MVI  MUST 
C  BE  REORGANIZED  AND  PLACED  ON  RFQCON 
0130  450  IF' REQCON  .EQ.  -2)  GO  TO  500 

0132  RFORG  =  .TRUE. 

0133  CALL  LVRFOR  < REQCON ) 

0134  RFORG  =  .FALSE. 

0135  GO  TO  800 

C 

C  PERFORM  INSERTION 
0136  500  CALL  LVNSRT 

0137  I F < . NOT .  FULL)  GO  TO  800 

C 

C  CONTINUANT  IS  FULL,  PLACE  ON  NFXT  CONTINUANT  IF  SPACF  IS  AVAILABI E 
0139  FULL  =  .FALSE. 

C 

C  SPECIAL  HANDLING  FOR  OVERFIOW  ON  INDEXED  INSERTION 
0140  IF* INPXON  .NE.  0)  GO  TO  600 

C 


p 


0142 


0144 

0145 

0146 

0147 

0148 

0149 

01S1 

0152 


0153 

0155 

0156 


0157 

0159 


0160 

0161 


0162 


0164 

0166 


0167 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0'85 


0186 

0188 

0189 

0190 

0191 


C  DOES  A  PORTION  OF  THE  XVI  RESIDE  ON  THE  CURRENT  CONTINUANT  ? 

505  IF*  ITESTR  .IE.  0)  GO  TO  520 
C 

C  SET  XVI  CONTINUATION  FI  AG 

FIGSPC*CTRI .1+1  ASTLC)*FIGSPC*CTRI  1*1  ASTLC)  .OR.  FI AG1  1 
NXTCON  *  .TRUE. 

520  REQPAG*2>  =  REQPAG*2>  ♦  1 

FIGSPC*CTR1 PT*HDRFI  G)  *FIGSPC*CTRI.PT*BDRFI  G)  .AND.  .NOT.  NOTUSP 
1  .OR.  XWRITE 
CALL  LVEXCB 

1F*XSARET  .IE.  0)  CALL  LVNCON 
CALL  LVFIND 
GO  TO  500 
C 

C  OVERFLOW  ON  INDEXED  INSERTION 
600  IF < IPOS  .EQ.  -1)  GO  TO  505 
CALL  LVOVER 
GO  TO  505 
C 

C  RESET  CONTINUANT  USAGE  RATIO 

800  IF*RPLACE  .EQ.  .TRUE. )  GO  TO  820 

LNKSPC  <  CTR1 PT  ♦  I NSDEL )  =  LNKSPC*CTR1 PT+ INSPEL)  +  NVAL 
C 

C  CONTINUANT  HAS  BEEN  XODIFIED 

820  FI GSPC*CTRI  F  :*BDRFI.G)  =FI  GSPC*CTRI  PT*BDRF1  G)  .AND.  .NOT.  NOTUSP 
1  .OR.  XWRITE 

NOPSPC  * CTRI PT +REGAS)  =  REGASP 
C 

C  IF  LIST  IS  CONTAINED  ON  XORE  THAN  ONE  CONTINUANT, 

C  SET  BACK  POINTING  FI  AG 

IF < NXTCON  .EQ.  .TRUE.) 

1  FIGSPC*CTRI1  ♦  THIS)  =  FIGSPC*CTRI  1  ♦  THIS)  .OR.  FIAG10 
C 

C  IF  A  SPECIFIC  CONTINUANT  WAS  REQUESTED,  SET  REORG  INBIBIT  FI  AG 
IF*REQCON  .NE.  -2) 

1  FI GSPC < CTRL  1  +  THIS)  *  FIGSPC*CTR1I  ♦  THIS)  -OR.  FIAG12 
REQPAG*2>  =  -2 
C 

C  CALL  SECOND  USER  INSERTION  STRATEGY  ROUTINE  ? 

1000  IF* IN2STR  .EQ.  .FALSE.)  GO  TO  1100 
IN1TXP  *  IN1STR 
IN2TXP  *  IN2STR 
INISTR  =  .FALSE. 

IN2STR  *  .FALSE. 

DL1TXP  =  DL1STR 
DL2TXP  >  DL2STR 
DL1STR  *  .FALSE. 

DL2STR  *  .FALSE. 

CALL  LVSTAC 
INSIDE  =  .TRUE. 

CALL  USRIN2 
INSIDE  *  .FALSE. 

CALL  LVPOP 
INISTR  =■  IN1TXP 
IN2STR  =  IN2TXP 
DL1STR  =  DL1TXP 
DL2STR  *  DL2TXP 
C 

C  RESTORE  FIND  STRATEGY  FI  AGS 
1100  IF* INSIDE  .EQ.  .TRUE.)  RETURN 
FP1STR  =  FP1TXP 
FP2STR  *  FP2TXP 
RETURN 
ENP 
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0001 

0002 

0003 


0004 


000S 


0006 

0007 


0008 
0009 
0010 
001  1 


0012 

0013 

0014 

0015 

0016 


0017 


0018 

0019 


0020 


0022 

0023 

0025 

0026 

0027 

0028 


C 

C 

C 

SUBROUTINE  LVNSRT 
IMPLICIT  INTEGER<A-Z> 

LOGICAL* I  SNGI BK, SETUP, NXTR AN, IN1STR, IN2STR,FP1STR,FP2STR,DL1STR, 

1  DL2STR.DUMPFI  .CERENT, FI NPFI  , DLETF1  .NSRTFI  .IN1TMP, 

2  DL2TMP , IN2TMP, FP2TMP , FELL , REORG , LSTCON , RPLACE 
COMMON  /IVARGS/  IFUNC,  IARG,  IPOS,  1TYP,  IVAL, NVAL.NSKIP ,  ITESTR. 

1  I  NCI  ED ,  INPXON ,  IVALS<  10)  ,  1TYP1  ( 10)  .SRCSl'F, 

2  LNKSVF , SNKSEF , INSTYP 

COMMON  /1VREGS/  CERPAGM)  , REQPAG'4)  ,LSTVPG<4>  ,MSARET , 

1  HREQPG.NXTMSA ,UACTPG<2> , READCT , ESECNT , D I RPAG , 

2  DIRCNT , OUT LOC .OETDIR '2561  ,RVBUF<  1) 

COMMON  /IVMASK/  MWR I TE ,  NOTESP ,  NFVCON ,  FT  GMSK ,  MASKSF .  MASKPF 
COMMON  /I  VF1  AG/  FI  OMSK  ,  FI  1 MSK ,  FI  2MSK ,  FI  3MSK ,  FI  4MSK .  FI  SMSK .  FI  G67 . 

1  FI  AG8.FI  AG9.FI  AGtO.Fl  AG1  1  ,Fl  AG12.FI  AG13.Fl  AG!4, 

2  FI  AG  1 5 

COMMON  /I  VCRXT/  REGASP ,  CTR1  PT ,  CTRI  1 ,  LEAST  V ,  NT  FREE ,  FREE ,  DREGSP , 

1  MSA,  PAGIOC,  CERENT 

COMMON  /IVBEFR/  PAGSZE , NVCBAN ,01  CHAN ,CMPANP,PAGBDR ,BEFSZE,D1RSZE, 
1  I NCORE , HDRSZE , MSAD I R , SVFSZE , BI  KSZE.DIRBI  K.PAGBD4 

COMMON  /I VHDVI /  THSMSA , REGAS, PAGENO, CONTNO, 1NSPEL , 

1  ESECT ,  HDRF1  G ,  RE ADVI  ,  01  DNPH ,  DNOPEH ,  NROUB .  DROWB 

COMMON  /IVSV1T/  SETEP ,SNG1  BK, NXTRAN ,  IN  1STR .  1N2STR ,FP1STR ,FP2STR. 

1  DL1STR ,  DL2STR ,  IN2TMP  ,FP2TMP ,  DL2TMP ,  Dl'MPFl  , 

2  FINPFI  ,  DLETFI  ,  NSRTFI 

COMMON  /IVPRAM/  BEFI OC ,  LENGTH ,  I  ERR ,  ERRNl'M  .BINARY ,  3CP , MOPE , PAGES , 

1  LUN 

COMMON  /IVADDR/  1 ADD , TH I S , LSTHED , LOC , LAST , LASTLC 
COMMON  /IVFNP/  OOENT , ABSPOS , LSTCON 

COMMON  /I VINS 1/  REORG. FELL, RPLACE 
COMMON  /I  VVTR 1/  NOPSPCM) 

1  /IVVTR2/  LSTSPCf  1) 

2  /IWTR3/  LNKSPC  <  1 ) 

3  /1VVTR4/  FIGSPCM) 

DATA  TWO/  2/ ,  THREE/  3/ ,  NF1 G67/  1 77774/ .  SV1  MIS  0/ 

C 

C  CALLS  TO  LVFINi  OR  LVFNV  MVST  PRECEDE  A  CALL  TO  THIS  ROITINF. 

C 

C  INSERTION  TYPE  ? 

C 

D  PAUSE  ’IN  LVNSRT’ 

RPLACE  =  .FALSE. 

IF< INPXON- 1 )  125,126,127 
C 

C  IS  THE  GIRS  BUFFER  FELL  ? 

125  IF) REGASP  .EQ.  LSTSPC'CTRI 1  ♦  RFGASP ) >  GO  TO  98 

C 

C  FORM  FIRST  WORD  OF  SINGLE  OR  MULTIVALUED  Fl'NCT ION 
F1GTMP  =  FI  1  MSK  .OR.  ITYPKl) 

IF<NVAL  ,EQ.  1 )G0  TO  20 
LSTTMP  »  REGASP 

FI  GTMP  *  FIGTMP  .OR.  FI  OMSK  .OR.  FI  2MSK 
GO  TO  21 

20  LSTTMP  =  IVALSU) 

C 
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0029 


0031 


0033 


0035 

0036 


0037 

0039 

0039 

0040 


0041 

0043 

0044 

0045 


0046 


0048 


0050 


0051 

0053 

0054 

0055 

0056 

0057 


0059 


0060 

0061 

0062 

0063 

0064 

0065 


0066 


C  IF  THIS  FUNCTION  ALREADY  EXISTS.  GO  TO  43 
21  lF'ITESTR  .GT.  0)  GO  TO  43 
C 

C  IF  THAT  ADDRESS  IS  ALREADY  IN  WORKING  SPACE.  GO  TO  25 

IFMFllMSK  .AND.  FIGSPC'CTRIl  ♦  I  ADD) )  .NE.  0)  GO  TO  25 
C 

C  UPDATE  REGASP (IF  NECESSARY) 

IF' I ADD  .EQ.  REGASP ) REGASP  =  LSTSPC'CTRI  1  ♦  I ADD) 

C 

C  UPDATE  AVAILABIE  SPACE 

LSTSPC'CTRI  1  ♦  NODSPC'CTRI  1  *  I  ADD)  >  *  LSTSPC<CTRI  !  ♦  I  ADD) 

NODSPC'CTRI  I  +  LSTSPC'CTRI  1  ♦  I  ADD))  =  NODSPC'CTRI  1  ♦  I  ADD) 

C 

C  INSERT  FUNCTION 

NODSPC'CTRI  1  ♦  I ADD)  =  IFUNC 
LSTSPC'CTRI  1  ♦  I  ADD)  =  LSTTKP 
LNKSPC < CTRI  1  ♦  I ADD)  =  I ADD 

FI  GSPC  <  CTRI  1  ♦  1ADD)  =  FI  GSPC'CTRJ  !♦  I  ADD)  .OR .  FI  GTHP  .OR  .FI  5MSK 
C 

C  INSERT  ANY  ADDITIONAL  FUNCTION  VALUES 
IF'NVAL  .EQ.  1)  GO  TO  100 
HEAD  =  I ADD 
OIDLOC  =  I  ADD 
GO  TO  50 
C 

C  IF  THAT  ADDRESS  CONTAINS  THE  HEAD  OF  A  CONFLICT  LIST,  GO  TO  G0 

25  IF< (FI 5MSK  .AND  FI GSPC < CTRI 1  ♦  I ADD) )  .GT.  0)  GO  TO  60 
C 

C  IF  THAT  ADDRESS  CONTAINS  A  VALUE  ON  A  NULTIVALUE  LIST.  GO  TO  35 
IF'  <  ( FI  2MSK  .AND.  FIGSPC'CTRIl  ♦  I  ADD) )  .GT.  0)  .AND. 

1  <F1  OMSK  .AND.  FIGSPC'CTRIl  ♦  I  ADD)  >  .EQ.  0)  GO  TO  35 

C 

C - - - - 

C-THE  ADDRESS  CONTAINS  A  FUNCTION  ON  A  CONFI ICT  LI ST, BUT  NOT  THE  HEAD  OF  LIST 
THIS  =  I ADD 
C 

C  FIND  THE  PRECEDING  FUNCTION  ON  THE  CONFLICT  LIST 

26  IF 'LNKSPC' CTRI  1  -  LNKSPC'CTRU  ♦  THIS))  .EQ.  1ADD)  GO  TO  27 
THIS  =  LNKSPC ' CTRI 1  ♦  THIS) 

GO  TO  26 

27  LAST  =  LNKSPC 'CTRI 1  ♦  THIS) 

NEWIOC  =  REGASP 

IF 'REGASP  .EQ.  LSTSPC'CTRI 1  ♦  REGASP))  GO  TO  98 
C 

C  UPDATE  AVAILABIE  SPACE  AND  REGASP 
CALL  LVUPDT 

C  HOVE  THE  FUNCTION  ON  A  CONFI  ICT  LIST  TO  THE  FIRST  CELL  OF  AVAILABLE 
C  SPACE 

NODSPC  <  CTRI  1  ♦  NEWIOC)  =  NODSPC'CTRI  1  ♦  I  ADD) 

LSTSPC'CTRI  1  ♦  NEWIOC)  *  LSTSPC'CTRI  1  ♦  I  ADD) 

LNKSPC 'CTRI  1  ♦  NEWIOC)  =  LNKSPC'CTRU  ♦  I  ADD) 

FIGSPC'CTRIl  *  NEWIOC)  =  FIGSPC'CTRIl  ♦  I  ADD)  .OR.  FI  4MSK 

FiasPC'CTRI  1  ♦  I  ADD)  =  0 

LNKSPC  <CTRI1  ♦  LAST)  =  NEWIOC 
C 

C  INSERT  THIS  FUNCTION  AS  THE  HEAD  OF  A  CONFLICT  LIST 
NODSPC'CTRI  1  *  I  ADD)  =  IFUNC 
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0067  LNKSPC  < CTRI  1  ♦  1ADD)  =  I ADD 

0068  LSTSPC'CTRI  1  ♦  I  ADD)  =  LSTTMP 

0069  FIGSPC'CTRIl  ♦  IADD)  = 

1  FI  GSPC 'CTRI  1  *  1  ADD)  .OR.  FIGTNP  .OR.  FI  4MSK  .OR.  FI  5KSK 
0070  IF"  FI  GSPC 'CTRI  l  *  NEVIOC)  . AND.  F10MSK)  .FQ.  0)  GO  TO  34 

C 

C  IF  THE  FUNCTION  THAT  WAS  MOVED  IS  THE  HEAD  OF  A  MULT  I  VALUE  LIST, FIX  POINTERS 
0072  NEXT  =  LSTSPC'CTRI  1  *  NEWIOO 

0073  30  NEXT  =  LSTSPC'CTRi 1  *  NEXT) 

0074  IF 'LSTSPC'CTRI  I  »  NEXT)  .NE.  I  ADD)  GO  TO  30 

0076  LSTSPC'CTRI  1  ♦  NEXT)  =  NEVIOC 

C 

C  INSERT  ANY  ADDITIONAL  FUNCTION  VALUES 

0077  34  HEAD  =  I ADD 

0078  OIDLOC  =  I  ADD 

0079  IF'NVAL  .GT.  1)  GO  TO  50 

0081  GO  TO  100 

C 

c - 

C-THE  ADDRESS  CONTAINS  A  VALUE  ON  A  MULT  I VALUE  LIST 
0082  3?  NEWIOC  =  REGASP 

0083  lF'RFGASP  -E0-  LSTSPC'CTRI 1  ♦  REGASP))  GO  TO  98 

C 

C  UPDATE  AVAILABIE  SPACE  AND  REGASP 
0085  CALL  LVUPDT 

C 

C  MOVE  THE  VALUE  ON  A  MULT  I VALUE  LIST  TO  THE  FIRST  CELL  OF 
C  AVAILABIE  SPACE 

0086  NOPSPC'CTRI  1  ♦  NEVIOC)  =  NODSPC'CTRI I  ♦  1 ADD) 

0087  LSTSPC'CTRI  1  -  NEVIOC)  =  LSTSPC'CTRI  1  ♦  I  ADD) 

0088  LNKSPC '  CTRI  1  ♦  NEWIOC)  =  LNKSPC  <  CTRI  1  ♦  I  ADD) 

0089  FI  GSPC '  CTRI  1  ♦  NFWIOC)  =  FIGSPC'CTRIl  ♦  I  ADD) 

0090  FIGSPC'CTRIl  *  I  ADD)  =  0 

C 

C  RESET  POINTERS 
C 

0091  LI  -  LSTSPC'CTRI  1  ♦  NFWIOC) 

0092  IF'  <FI  OMSK  .AND.  FIGSPC'CTRIl  ♦  ID)  ,EQ.  0)  GO  TO  200 

0094  LNKSPC '  CTRI  1  ♦  LSTSPC'CTRI  1  ♦  Ll>>  =  NEWIOC 

0095  GO  TO  201 

0096  200  LNKSPC ' CTRI  1  *  LI)  *  NEWIOC 

0097  201  KZVAL  =  LSTSPC'CTRI  1  ♦  LNKSPC '  CTRI  1  ♦  NEWIOC)) 

0098  IF'  (FI GSPC 'CTRI  1  ♦  KZVAL)  .AND.  F10MSK)  .NE.  0)  GO  TO  38 

0100  LSTSPC'CTRI  1  ♦  LNKSPC '  CTRI  1  ♦  NEVIOC))  =  NEVIOC 

0101  GO  TO  39 

0102  38  LSTSPC'CTRI  1  ♦  KZVAL)  =  NEWIOC 

0103  39  NOPSPC'CTRI  1  +  I ADD)  =  IFUNC 

C  INSERT  THIS  FUNCTION  AS  THE  HEAD  OF  A  CONFLICT  LIST 
0104  LNKSPC ' CTRI  1  ♦  I ADD)  =  I ADD 

0105  LSTSPC'CTRI  1  ♦  I  ADD)  =  LSTTMP 

0106  FIGSPC'CTRIl  ♦  1  ADD)  = 

1  FIGSPC'CTRIl  ♦  I  ADD)  .OR.  FIGTNP  .OR.  FI  4MSK  .OR.  FI5MSK 
0107  GO  TO  100 

C 

c - 

C-THE  FUNCTION  TO  BE  INSERTED  IS  ON  THE  CONFLICT  LIST 
0108  43  HE4D  =  THIS 


0109 


0111 


0112 

0113 

0114 


0115 

0116 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 


0129 

0130 

0131 

0132 

0133 

0134 

0135 


0137 

0138 


0139 

0141 

0142 

0144 

0145 

0146 

0147 

0148 


0149 


C 

C  IS  THIS  A  SING1E  VALUE  LIST  OR  MULTI VALUE  LIST? 

IF'LSTHED  .IT.  0)  00  TO  51 
C 

C  OIDLOC  IS  THE  LOCATION  OF  THE  LAST  VALUE  ON  THE  MULTIVALUE  LIST 
C 

OIDLOC  =  LNKSPC  <  CTRI  1  ♦  LSTHED) 

C 

C - 

C- INSERT  ADDITIONAL  FUNCTION  VALUES 

50  LSTASP  =  NOPSPC  * CTRI  1  ♦  REGASP) 

IN  *  0 

GO  TO  56 
C 

C - 

C-FORM  MULTIVALUE  LIST  TO  ADD  VALUE(S)  TO  SINGLE-VALUED  FUNCTION 

51  IN  *  0 

IF i REGASP  .EQ.  LSTSPC'CTRl 1  ♦  REGASP))GO  TO  98 
LSTASP  =  NOPSPC* CTRL  1  ♦  REGASP) 

NEWIOC  =  REGASP 

REGASP  *  LSTSPC*CTRI  1  ♦  REGASP) 

NOPSPC *CTRI  1  ♦  NEWIOC)  *  LSTSPC*CTRI  I  ♦  THIS) 

TEMP  *  (FIGSPC'CTRI  1  ♦  THIS)  .ANP.  F1G67) 

FIGSPC*CTRI  1  ♦  NEWIOC)  =  (TEMP  .OR.  FIGSPC'CTRIl  ♦  NEWIOC)) 

FIGSPC*CTRI  1  ♦  THIS)  =  (FLGSPC'CTRI  1  ♦  THIS)  .ANP.  NFIG67) 

FIGSPC'CTRI  1  ♦  THIS)  =  (F12MSK  .OR.  FIGSPC'CTRIl  ♦  THIS)) 

F1GSPC*CTRI  1  ♦  THIS)  =  (F10MSK  .OR.  FIGSPC'CTRIl  *  THIS)  > 

LNKSPC  *  CTRI PT ♦ I NSPEL )  =  LNKSPC  *  CTRI  PT ♦ I NSPEL )  ♦  1 
OIDLOC  =  THIS 
C 

C - 

C  INSERT  ANOTHER  VALUE  ON  MULT I VALUE  LIST 

52  F1GSPC(CTRI1  *  NEWIOC)  =  (FL2MSK  .OR.  FIGSPC'CTRIl  ♦  NEWIOC)) 
FIGSPC'CTRIl  ♦  NEWIOC)  =  (FI  1  MSI  .OR.  FIGSPOCTRIl  ♦  NEWIOC)) 
LSTSPC  *  CTRI  1  ♦  OIDLOC)  =  NEWIOC 

LNKSPC  (CTRI  1  ♦  NEWIOC)  *  OIDLOC 
OIDLOC  =  NEWIOC 

56  NEWIOC  *  REGASP 

IF* IN  .GT.  0)  GO  TO  57 
C 

C  NO  VALUES  HAVE  BEEN  INSERTED  YET 
IN  =  1 
GO  TO  58 
C 

C  SOME  VALUES  HAVE  BEEN  INSERTED 

57  IF* IN  -EQ.  NVAL)  GO  TO  67 
IN  =  IN* 1 

C 

58  IF *REGASP  .EQ.  LSTSPC*CTRI  1  ♦  REGASP))  GO  TO  98 
REGASP  =  LSTSPC* CTRI  1  ♦  REGASP) 

NOPSPC  *  CTRI  1  *  NEWIOC)  =  IVALS*  IN) 

F1GSPC*CTRI  1  ♦  NEWIOC)  »  ( ITYP1  <  IN)  .OR.  FIGSPC'CTRIl  ♦  NEWIOC)) 
ITYPl(IN)  =  0 
GO  TO  52 
C 

C  ENP  MULTIVALUE  LIST  ANP  UPDATE  A VA I LABI  E  SPACE 
67  LSTSPC  *  CTRI  1  ♦  OIDLOC)  =  HEAD 


0150 

0151 

0152 

0153 


0154 

0155 

0156 


f  158 


0159 

0160 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 


0172 

0173 

0174 

0175 

0176 


0177 

0178 

0179 

0180 

0181 

0183 

0184 

0186 

0187 

0188 

0189 


NODSPC ' CTRI  1  *  REGASP)  =  LSTASP 
LSTSPC < CTR1  1  *  LSTASP)  =  REGASP 
LNKSPC  '  CTRI  1  »  LSTSPC 'CTRI  1  •*  HEAD))  =  01 DLOC 
GO  TO  100 
C 

C - 

C-THE  FUNCTION  TO  BE  INSERTED  IS  NOT  ON  THE  CONFI ICT  LIST 
60  ASPRFG  =  RFGASP 

LSTASP  =  NODSPC 'CTRI  1  *  REGASP) 

IF' REGASP  .EO.  LSTSPC 'CTRI  1  ♦  REGASP))  GO  TO  98 
C 

C  UPDATE  AVAIL  ABIE  SPACE  AND  REGASP 
CALL  LVTPDT 
C 

C  INSERT  FUNCTION  IN  FIRST  CELL  OF  AVAILABIE  SPACF 
NOPSPC < CTRI  1  ♦  ASPRFG)  =  IFUNC 
IF'NVAL  .  FQ.  DGO  TO  611 
LSTSPC '  CTRI  1  ♦  ASPRFG)  =  REGASP 

FIGSPC'CTRl  1  ♦  ASPRFG)  =  'FI2MSK  .OR.  FIGSPC'CTRIl  ♦  ASPREG) ) 

FIGSPC'CTRI  1  ♦  ASPRFG)  =  <  FI  OMSK  .OR.  FIGSPC'CTRIl  ♦  ASPREG) ) 

GO  TO  612 

611  LSTSPC 'CTRI  l  *  ASPRFG)  =  IVALS'D 

612  FIGSPC'CTRI  1  ♦  ASPRFG)  * 

1  FIGSPC'CTRIl  ♦  ASPRFG)  .OR.  ITYPlU)  .OR.  FI  1MSK  .OR.  FI  4MSK 
LNKSPC 'CTRI  1  *  ASPRFG)  =  I  ADD 
LNKSPC 'CTRI 1  ♦  LAST)  =  ASPRFG 
IF'NVAL  .EO.  1)  GO  TO  100 
C 

C  INSERT  ADDITIONAL  VALUES 

LSTASP  =  NODSPC ' CTRI  1  *  REGASP) 

01 DLOC  =  ASPRFG 
HEAD  =  ASPRFG 
IN  =  0 
GO  TO  56 
C 

C  DESTRUCTIVE  INSERTION 

C 

C  A  CALL  TO  LVFIND  MUST  PRECEDE  A  CALL  TO  EITHER  126  OR  127. 

C  GIVFN  N  VALUES  OF  TYPE  K  ON  A  LIST  WERE  N.GE.0  ,  INDEXED 
C  INSERTIONS  SHALL  SUCCEED  FOR  IPOS.GE. 1  .AND.  IPOS  .IE.  N* I 
C 

C  DEFT  AT  SAVED  INDEX  UNTIL  NEXT  RETRIEVAL. 

126  FIGSPC'CTRIl  ♦  THIS)  =  FIGSPC'CTRIl  *  THIS)  .OR.  FI  4MSK 
ABSPOS  «  (ABS'IPOS) 

KPOS  =  IPOS 
INDEX  =  0 

C  DOES  THE  IPOS’TH  VALUE  OF  THE  PROPER  TYPE  EXIST? 

IF'  ITESTR  .IT.  0)  GO  TO  90 
C  REPLACE  VALUE  AT  LOCATION  ’IOC’.  SVI  OR  MVI  ? 

RPLACF  =  TRUE. 

IF'LSTHED  .GT.  0)  GO  TO  356 

C  SVI 

LSTSPC 'CTRI  1  *  LOC)  =  IVALS'D 
SVIRPL  =  i 
GO  TO  365 

C  MVI 

356  NODSPC ' CTRI  1  ♦  I.OC)  *  IVALS'D 
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C  RFPLACF  TYPE. 

(H90  365  FIGSPC'OTRI  1  ♦  LOC)  * 

1  t  (FIGSPC'CTRII  *  LOC)  .AND.  NFIG67)  .OR.  1TYP 1  <  1  > ) 

0191  GO  TO  100 

C 

C  IPOS'TH  VALUE  WAS  NOT  FOUND,  INDEXED  INSERTION  CAN  STILL  SUCCEED 
C  IF  (IPOS-1)  VALUE  IS  FOUND.  THIS  THEN  BECOMES  A  NORMAL  INSERTION 
C  IF  ABSPOS  =  1  OR  THE  VALUE  WILL  BE  THE  LAST  IN  THE  LIST.  OTHERWISE, 
C  THIS  BECOMES  A  NONDESTRUCTIVE  INSERTION  TO  THE  FIRST  POSITION  IN 
C  THE  LIST 
C 

0192  90  I F ' ABSPOS  .EQ.  1 )  GO  TO  125 

0194  IF'KPOS)  91,97.92 

('195  91  KPOS  =  KPOS-1 

0196  GO  TO  93 

0197  92  KPOS  =  KPOS  - 1 

0198  93  CALL  LVFIND 

0199  IPOS  =  KPOS 

0200  CALL  LVFNV <  INDEX,  INDEX,  INDEX,  INDEX) 

C  FAILVRF  IF  NO  VALUE  IS  FOUND. 

0201  IF*  ITESTR  IT.  0)  GO  TO  97 

C  NORMAL  INSERTION  IF  REQUEST  WAS  IPOS'TH  FROM  THE  TOP. 

0203  IF'KPOS  . GT .  0)  GO  TO  125 

C  NONDESTRUCTIVE  INSERTION  AT  THE  BEGINNING  OF  THE  LIST. 

0305  .NFWIOC  =  RFGASP 

0206  IF  <  RFGASP  . EQ.  LSTSPC'CTRl  1  ♦  REGASP))  GO  TO  98 

0208  CALL  LVUPDT 

C  SVI  OR  MVI  ? 

0209  I F < LSTHED  .GT.  0)  GO  TO  377 

0211  GO  TO  344 

C 

C  NONDESTRUCTIVE  INSERTION 

C 

C  IF  iros  =  -1,  PLACE  AT  THE  END  OF  THE  LIST  (NORMAL  INSFRTION) . 

0212  127  irdPOS  .FQ.  -1)  GOTO  125 

C 

C  DEFEAT  SAVFB  INDEX  UNTIL  NEXT  RETRIEVAL. 

0214  FIGSPC'CTRII  ♦  THIS)  =  FIGSPC'CTRII  ♦  THIS)  .OR.  FI  4MSK 

0215  ABSPOS  =  lABS'lPOS) 

0216  KPOS  =  IPOS 

0217  INDEX  =  0 

0218  NFWIOC  =  RFGASP 

C  DOFS  THE  IPOS’TH  VALUE  OF  THE  PROPER  TYPE  EXIST? 

0219  IF' ITESTR  .IT.  0)  GO  TO  90 

0221  IF 'RFGASP  .FQ.  LSTSPC'CTRl  1  ♦  RFGASP))  GO  TO  98 

0223  CALL  LVUPDT 

C  SVI  OR  MVI? 

0224  IF  i  LSTHED  .IT.  0>  GO  TO  344 

C  MVI 

0226  IF'KPOS  .IT.  0)  GO  TO  347 

C 

C  PI.ACF  VALUE  AT  THE  IPOS'TH  POSITION  < WRT  ITYP)  FROM  THE  TOP  OF  LIST 
0228  377  ISTI.OC  =  I  NKSPCCTRI  1  ♦  LOO 

0229  NODSPOCTRI  l  *  NFWIOC)  =  IVALS'P 

0230  LSTSPC'CTRl  1  *  NFWIOC)  =  LOC 

0231  INKSPC'CTRll  *  NFWIOC)  =  ISTLOC 

0232  FIGSPC'CTRII  ♦  NFWIOC)  =  FI  1MSK  .OR.  El  2MSK  .OR.  ITYP  1  <  1  > 
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0233  IF'LOC  .NE.  LSTHED)  GO  TO  32! 

0235  LSTSPC 'CTRI  1  ♦  LSTSPC 'CTRI  1  *  ISTLOC) )  *  NEV1 OC 

0236  GO  TO  322 

0237  32!  LSTSPC '  CTRI  1  ♦  ISTLOC)  =  NEVIOC 

0238  322  LNKSPC  '  CTRI  1  ♦  LOC)  =  NEVIOC 

0239  GO  TO  106 

C 

C  PLACE  VALUE  AT  THE  IPOS’TH  POSITION  (WRT  ITYF)  FROM  THE  BOTTOM  OF 
C  THE  LIST 

0240  347  NOPSPC'CTRI  1  ♦  NEVIOC)  =  lVALS'l) 

0241  LSTSPC'CTRI  1  ♦  NEVIOC)  =  LSTSPC'CTRII  ♦  LOC) 

0242  LNKSPC 'CTRI  1  ♦  NEVIOC)  =  LOC 

0243  FI  GSPC  '  CTRI  1  ♦  NEVIOC)  =-  FI  1MSX  .OR.  FI  2NSK  .OR.  ITYPl(l) 

0244  IF<<FIGSPC<CTRI1  ♦  LSTSPC<CTRI  1  ♦  LOC))  .AND.  FI  OMSK)  .EQ.  0) 

1  GO  TO  323 

0246  KZVAL  =  LSTSPC<CTRI 1  *  LOC) 

0247  LNKSPC  <  CTRI  1  ♦  LSTSPC<CTR1  1  ♦  KZVAL))  =  NEVIOC 

0248  GO  TO  324 

0249  323  LNKSPC  <  CTRI  1  ♦  LSTSPC<CTRI  1  ♦  LOC))  =  NEVIOC 

0250  324  LSTSPC < CTRI  1  ♦  LOC)  *  NEVIOC 

0251  GO  TO  100 

C 

C  CREATE  MVI  VITH  NFV  VALUE  AT  THE  TOP  OF  THE  LIST. 

0252  344  IF< REGASP  .EQ.  LSTSPC <CTRI  I  *  REGASP))  GO  TO  98 

0254  NVIOC2  =  REGASP 

0255  CALL  LWPDT 

0256  NOPSPC'CTRI  1  ♦  NEVIOC)  =  IVALS'i) 

0257  LSTSPC  <  CTRI  1  ♦  NEVIOC)  =  NV1  0C2 

0258  LNKSPC  <  CTRI  1  ♦  NEVIOC)  =  NV1  0C2 

0259  FI  GSPC  <  CTRI  1  *  NEVIOC)  =  FI  1MSK  .OR.  FI  2MSK  .OR.  ITYP1U) 

0260  NOPSPC'CTRI  1  ♦  NVIOC2)  =  LSTSPC  <CTRI  1  ♦  THIS) 

0261  LSTSPC  <  CTRI  1  ♦  NVI0C2)  =  THIS 

0262  LNKSPC  <  CTRI  1  ♦  NVI.0C2)  =  NEVIOC 

0263  KIGTEP  =  FIGSPC'CTRIl  ♦  THIS)  .AND.  FI  G67 

0264  FIGSPC'CTRIl  *  NVIOC2)  =  <FI  1MSK  .OR.  FI2MSK)  .OR.  KIGTEP 

0265  LSTSPC 'CTRI  1  ♦  THIS)  *  NEVIOC 

0266  FI  GSPC ' CTRI  I  *  THIS)  = 

1  (FIGSPC'CTRIl  ♦  THIS)  .OR.  F10MSK)  -OR.  FI  2MSK 
C  FLAG  4  IS  SFT  BECAUSE  THIS  INSERTION  MIGHT  BF  A  RECREATION  OF  AN 
C  01  D  LIST 

0267  100  FIGSPC'CTRIl  *  THIS)  *  FIGSPC'CTRIl  ♦  THIS)  .OR.  El  4MSK 

0268  IVAL  =  IVALS'l) 

C  FAILURE  IF  IFUNC'IARG  DID  SOT  PREVIOl'SIY  EXIST 
C  IF<<<FIGSPC<CTRI1  ♦  THIS)  AND.  FI  OMSK)  NE.  0)  -OR. 

C  1  SVIRPL  .EQ.  1)  ITESTR  =  1 
0269  97  IPOS  =  1 

0270  SVIRPL  *  0 

0271  ITYP  =  3 

0272  INPXON  =  0 

0273  NVAL  =  1 

0274  ITYP  1(1)  =  0 

0275  RETURN 

C 

C  CONTINUANT  IS  FULL,  TRY  AGAIN 
0276  98  FULL  =  .TRUE. 

0277  RETURN 

0278  ENP 


0001 

0002 

0003 

0004 

0005 


0006 


0007 

0000 

0009 

0010 

0011 

0013 

0014 


C 

0 

c 

SUBMIT  I NE  LVUPDT 
IMPLICIT  INTEGER' A-Z) 

LOGICAL* 1  CVRENT 

COMMON  /IVCRNT/  REGASP, CTRI  PT.CTRl  I , LEASTV , NTFREE , FREE, DREGSP, 

1  MSA,PAGIOC,CURENT 

COMMON  /I  V VTR I /  NOPSPC  < 1 1 

1  /IVVTR2/  LSTSPC'l) 

2  /IVVTR3/  LNKSPC  <  1 ) 

3  /IVVTR4/  FIGSPC'l) 

COMMON  /IVFIAG/  FI  OMSK ,  FI  1 MSK ,  FI  2MSK ,  FI  3MSX ,  FI  4MSK ,  FI  5MSK ,  FI  G67 . 

1  FI  AG0 ,  FI  AGO,  FI  AGIO,  FI  AG!  1  ,FI  AGi2.FI  AG13,  FI  AG14 , 

2  FI  AG  1 5 
C 

C  THIS  ROUTINE  UPDATES  AV A I LABI  E  SPACE  AND  THE  REGISTER  OF  AVAILABIE 
C  SPACE  -  REGASP 
C 

D  PAUSE  ’IN  LVUPDT ’ 

LSTSPC'CTRI  1  *  NOPSPC '  CTRI  1  *  REGASP))  =  LSTSPC'CTRI  1  ♦  REGASP) 
NOPSPC 'CTRI  1  ♦  LSTSPC'CTRI  1  ♦  REGASP))  =  NOPSPC'CTRI  1  ♦  REGASP) 
REGASP  =  LSTSPC'CTRI  1  ♦  REGASP) 

XXX= 1000 

IF'  (FIGSPC'CTRI  1*  REG  ASP)  . OR.FI  3MSK)  .  NE .  FI  3MSK  >  XXX  =XXX*  XXX 

RETURN 

ENP 
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c 

c 

c 

0001  SUBROUTINE  LVPLEX 

0062  IMPLICIT  INTEGER'A-Z) 

0003  LOGICAL*!  SNGI  BK , SETUP , NXTRAN, IN 1STR , IN2STR ,FP 1STR.FP2STR , DL1STR , 

1  DL2STR , DUMPF1  .CURENT ,  F INPFI  , DLETFI  .NSRTFI  .FP1TMP, 

2  DL2TMP , IN2TMP , FP2TMP , INSIDE, REORG , FULL , LSTCON . RPLACE , 

3  BAKCON 

0004  COMMON  /I  VARGS/  IFl'NC ,  I ARG,  IPOS,  1TYP  ,  I VAL.NVAL, NSKIP ,  ITESTR . 

1  l NCI  UD,  INPXON ,  IVALS'  10)  ,  ITYP1  (  10)  .SRCSUF. 

2  LNKSUF . SNKSUF . INSTYP 

0005  COMMON  /I VREGS/  CURP AG  <  4 ) , REQP AG  < 4 ) , LST VPG  <  4 ) , MSARET , 

1  HREQPG,NXTMSA,HACTPG<2) ,REAUCT,USECNT,DIRPAG, 

2  DIRCNT .OUTLOC, OUTDIR  < 256) .RVBUF* 1) 

0006  COMMON  /I  V MASK/  MWR  I TE ,  NOTL'SP ,  NFWCON ,  FI  GMSK ,  MASKSF ,  MASKPF 

0007  COMMON  /I  VFI  AG/  FI  OMSK ,  FI  1 MSK ,  FI  2MSK ,  FI  3MSK .  FI  4MSJC .  FI  SMSK .  FI  G67 . 

1  FIAG8.F1  AG9.Fl  AG10.F1  AG1  1  , FI  AG12.FI  AG13.Fl  AG14, 

2  FI  AG  15 

0008  COMMON  /I VCRNT /  REGASP ,CTR1  PT ,CTR1  1 , LEASTV , NTFRFE, FREE. DRFGSP , 

1  MSA,  PAGIOC,  CURENT 

0009  COMMON  /I VBUFR/  PAGSZF , NVCBAN , 01 CBAN  CMPANP, PAGHDR . BUFSZE, DIRSZE, 

1  I NCORE , HDRSZE , MSADIR , SUFSZE , BI  KSZE , PI RBI  K , PAGHD4 

0010  COMMON  /I VHDV1 /  THSMSh , REGAS , PAGENO , CONTNO. INSPEL, 

1  USECT , HDRFI G , READVI , 01 DNPH , DNOPEH , NROWH , DROWB 

0011  COMMON  /IVSWIT/  SETUP ,SNGI  BK , NXTRAN , IN 1STR . 1N2STR , FP 1STR ,FP2STR , 

1  DL1STR , DL2STR . IN2TMP , FP2TMP , DL2TMP.DUMPFI  , 

2  FINPFI  ,  DLETFI  ,  NSRTFI 

0012  COMMON  /IVPRAM/  BUFI OC . LENGTH , I ERR , ERRVUM .BINARY , BCP , MOPE , PAGES , 

1  LUN 

0013  COMMON  /IVFNP/  COUNT . ABSPOS , LSTCON 

0014  COMMON  /I  VI NS  I /  REORG , FULL , RPLACE 

0015  COMMON  /IVPEL1/  NUMRET ,  BAKCON 

0016  COMMON  /I  VVTR  1  /  NOPSPCU) 

1  /IVVTR2/  LSTSPC  <  1 ) 

2  /I VVTR3/  LNKSPC  < 1 ) 

3  /IVVTR4/  F1GSPC<  U 

C 

0017  DATA  INSIDE  /.FALSE./ 

C 

C  THE  DELETE  EXECUTIVE  ROUTINE  OBTAINS  THE  CORRECT  P,C  FOR  SUBROUTINE 
C  L VP LET  TO  OPERATE  ON. 

C 

D  PAUSE  'IN  LVPLEX’ 

C  IS  LVPLET  BFING  CALLED  FROM  A  DELETE  STRATEGY  ROUTINE  7 
0018  IF'INSIDF.  .FQ.  .TRUE.)  GOTO  100 

C 

C  TO  PREVENT  RECURSION.  SAVE  THE  FIND  STRATEGY  FI  AGS  AND  TURN  THEM  OFF 
0020  FP1TMP  =  FP1STR 

0021  FP2TMP  =  FP2STR 

0022  FPISTR  =  .FALSE. 

0023  FP2STR  =  .FALSE. 

C 

C  CALL  USER’S  FIRST  DELETE  STRATEGY  ROUT INE  ? 

0024  IF'DLISTR  .FQ.  .FALSE.)  GO  TO  100 

C 

C  TO  PREVENT  RECURSION  INHIBIT  CALLS  TO  ALL  USER  STRATEGY  ROUTINES 
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n 


/ 

i 

i 

1 


i 

i 


0026 

DL1TMP  =  DLISTR 

0027 

DL2TMP  =  DL2STR 

0026 

DL1STR  =  .FALSE. 

0029 

DL2STR  =  .FALSE. 

0030 

1N1TMP  =  INISTR 

003’ 

1S2THP  =  IN2STR 

0032 

INISTR  =  .FALSE. 

0033 

IN2STR  =  .FALSE. 

C 

C  SET  UP  FOR  FIRST  USER  ROUTINE 

0034 

CALL  LVSTAO 

0035 

INSIDE  =  .TRUE. 

0036 

CALL  USRPL1 

0037 

INSIDE  =  .FALSE. 

0036 

CALL  LVPOP 

0039 

DL1STR  =  DLlTMP 

0040 

DL2STR  =  DL2TMP 

0041 

INISTR  =  INITMP 

0042 

IN2STR  =  IN2TMP 

C 

C  PROCEED  WITH  DELETION  ? 

0043 

IF'DLETFI  .EQ.  .FALSE.)  GO  TO  600 

C 

C  BRING  IN  PROPER  CONTINUANT 

0045 

100  J  =  0 

0046 

CALL  LVFPEX ( J , J . J , J , J ) 

C 

C  NO  LIST  TO  BE  DELETED  ? 

0047 

IF '  ITESTR  .IT.  0)  GO  TO  600 

C 

C  ASSUME  LIST  DOFS  NOT  PROOFED  TO  ANOTHER  CONTINUANT 

0049 

200  LSTCON  =  .FALSE. 

0050 

BAKCON  =  .FALSE 

Q 

C  NUMRET  COUNTS  THE  NUMBER  OF  LOCATIONS  RETURNED  TO 

AVA1I.AB1E  SPACE 

0051 

SVHRFT  =  0 

0052 

CALL  LVPLET 

C 

C  UPDATE  CONTINUANT  FILL  QUANTITY 

0053 

LNKSPC'CTRI PT*  INSPEI.)  *  LNKSPC < CTRI  PT ♦  I NSPEL > 

C 

C  CONTINUANT  HAS  BEE  'I  MODIFIED 

-  NTMRFT 

0054 

FI  GSPC'CTRI  PT ♦  HDRFI  G)  =  FI  GSPC « CTRI  PT+HDRFI  G ) 

C 

C  INDEXED  DELETE  ? 

.OR.  MWRITE 

0055 

IF'INPXON  .EQ  1)  GO  TO  400 

C 

C  FINISHED  ? 

0057 

IF 'LSTCON  .EQ.  .FALSE.)  GO  TO  600 

C 

C  EXAMINE  NEXT  CO.NTIN  'ANT 

0059 

300  REQPAG'2)  =  CUR'AG'2)  *  1 

0060 

J  =  0 

0061 

CALL  LVFPEX  (J,;  \J,J) 

C 

C  NO  MORE  CONTINUANTS  7 

0062 

IF'MSARET  .IE.  0)  GO  TO  500 

90 
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END 
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0070 
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0075 
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0080 

0081 
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C 

C  DOES  A  PORTION  OF  THE  LIST  RESIDE  ON  CURRENT  '  N?  7 

IF* ITESTR  .IT.  0)  GO  TO  300 
GO  TO  200 
C 

C  RESET  DEFAULT  TO  DELETE  ENTIRE  LIST" 

400  INPXON  =  0 

IF*BAKCON  .EQ.  -FALSE.)  GO  TO  450 
C 

C  LIST  NO  LONGER  POINTS  FORWARD  TO  A  FOLLOWING  CONTINUANT,  REMOVE  FLAG 
IPOS  *  -l 
CALL  LVFDEX 

FI.GSPC * CTRL  1  +I.OC)  •  FI.GSPC<CTR1  1+IOC)  .AND.  .NOT.  FLAG)  1 
450  IF«LSTCON  .EQ.  .FALSE.)  GO  TO  600 
C 

C  LIST  NO  LONGER  POINTS  BACKWARD  TO  A  PREVIOUS  CONTINUANT,  REMOVE  FLAG 
IPOS  >  1 
CALL  LVFDEX 

FLGSPC ' CTRL  1  ♦THIS)  *  FLGSPC'CTRI  1+THIS)  .AND.  .NOT.  F1.AG10 
GO  TO  600 
C 

C  ERROR,  LIST  CONTINUATION  FLAG  BUT  NO  MORE  CONTINUANTS  * 

500  ERRNUM  *  50 
NODE  «  BCD 
PAGES  -  -1 
DUMP  «  0 

CALL  LVDUNP(DUMP) 

X  *  1000 
X  >=  X  •  X 
STOP 
C 

C  CALL  SECOND  USER  DELETION  STRATEGY  ROUTINE  7 
600  IF*DL2STR  -EQ.  .FALSE.)  GO  TO  700 
DL1TMP  *  DL1STR 
DL2TMP  «  DL2STR 
DL1STR  ■  .FALSE. 

DL2STR  =  .FALSE. 

IN1TMP  *  IN1STR 
IN2TMP  =  IN2STR 
IN1STR  *  .FALSE. 

IN2STR  *  .FALSE. 

CALL  L VST AC 
INSIDE  =  .TRUE. 

CALL  USRPL2 
INSIDE  =  .FALSE. 

CALL  LVPOP 
DL1STR  *  DL1TMP 
DL2STR  *  DL2TNP 
IN1STR  =  IN1TMP 
IN2STR  -  1N2TNP 
C 

C  RESTORE  FIND  STRATEGY  FLAGS 
700  IF* INSIDE  .EQ.  .TRUE.)  RETURN 
FP1STR  =  FP1TNP 
FP2STR  *  FD2TMP 
RETURN 
END 
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0012 

0013 

0014 

0015 

0016 

0017 
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0019 


0020 


0022 


0024 
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SUBROUTINE  LVPLET 
IMPLICIT  INTEGER' A-Z) 

LOGICAL*  1  SNGIBK,  SETUP,  NXTRAN,  IN1STR,  IN2STR , FT1STR , FP2STR , DL1STR , 

1  DL2STR , DUMPF1  .CURENT.FINPR  .DLETFI  .NSRTFI  .DL1TMP, 

2  DL2TMP .  I N2TMP ,  FP2TMP ,  REORG ,  HILL ,  LSTCON ,  RPUCF ,  BAKCON 
COMMON  /IVARGS/  IR'NC,  IARG,  IPOS,  ITYP.  IVAL.NVAL.NSKIP,  ITESTR, 

1  I  NCI  IID,  INPXON ,  IVALS'  10)  ,  ITYP  I '  10)  .SRCSUF, 

2  LNKS1T ,  SNKSl'F .  I NSTYP 

COMMON  A VREGS/  CVRPAG<4) ,R£QPAG<4> ,LT?  'PG'4),MSARFT, 

1  HREQPG , NXTMSA , HACTPG < 2 ) ,L:  “LCT . USECNT .DIRPAG, 

2  DIRCNT,OUTLOC.OUTDIR'256>  ,RWBUF< l> 

COMMON  /IVMASX/  MVR ITE , NOTUSP , NEYCON , FI  GMSK , MASKSF , MASKPF 
COMMON  /IVFIAG/  FI  OMSK ,  FI  1 MSX ,  Fi  2MSK ,  FI  3MSK .  FI  4NSK ,  FI  5MSK .  FI  G67 , 

1  RAG8.FI  AG9.FI  AG10,  HAG  I  I ,  PI  AG  12,  R  AG  13.  FI  AG  14, 

2  FI  AG  1 5 

COMMON  A VCRNT/  REGASP , CTRI  PT , CTRI  1 , LEASTV , NTFRFE , FREE , DREGSP , 

1  MSA , PAGI OC , CVRKNT 

COMMON  A  VBl'FR/  PAGSZE ,  NWCHAN ,  01  CHAN ,  CMPANP ,  P AGHDR ,  Bl'FSZF ,  D I RSZE , 
1  I NCORE .  HDRSZE ,  MSADIR,  SUFSZF ,  B1  RSZE .  D I  RBI  K .  PAGBD4 

COMMON  A VHDVI /  THSMSA, REGAS, P AGFNO, CONTNO, 1NSPEL, 

1  USECT ,  HDRR  G ,  READVI  ,  01  DNPH ,  DNOPEH ,  NROfcH ,  DROWH 

COMMON  A VSWIT/  SETUP, SNGI  BK. NXTRAN , IN ISTR , 1N2STR.FP1STR .FP2STR, 

1  DL  ISTR ,  DL2STR .  I N2TMP ,  FP2TMP .  DL2TMP , DUMPR  , 

2  F I NPR  .DLETFI  .NSRTFI 

COMMON  A VPRAM/  BUFI OC . LENGTH , I ERR , ERRNUM, BINARY ,BCP, MOPE, PAGES, 

1  LUN 

COMMON  A VADDR/  I ADD .THIS, LSTHED , LOC , LAST , LASTLC 
COMMON  A VSTAK/  CURI EV.NUMVAR, STACK' 1 ) 

COMMON  A VFNP/  COUNT , ABSPOS , LSTCON 

COMMON  /I VI NS  1/  REORG, R’LL, RPLACE 
COMMON  /I.VPEL1/  NUMRET ,  BAKCON 
COMMON  /IVVTR1/  NOPSPC'l) 

1  A VVTR2/  LSTSPC  * 1 ) 

2  /1VVTR3/  LNKSPC' 1> 

3  A VVTR4/  FI  GSPC  < 1 ) 

DATA  NR  023/  177517/ 

C 

C 

C 

C  DOES  THE  LIST  EXIST  ? 

D  PAUSE  ’IN  LVPLET’ 

IF' ITESTR  .IT.  0)  RETURN 

C 

C  SVI  OR  MVI  9 

IF 'LSTHED  .IT.  0)  GO  TO  200 
C 

C  INDEXED  DELETE  ? 

IF< INPXON  .EQ.  1)  GO  TO  500 
C 

C  DELETE  ENTIRE  MULT  I VALUE  LIST 
ISADD  =  LSTHED 
LOC  *  THIS 

100  NXTADD  =  LSTSPC 'CTRI  1  ♦  ISADD) 

IFCFI GSPC' CTRI  1  ♦  NXTADD)  .ANP.  RAGI1)  .NE.  0)  LSTCON  =  .TRUE. 


92 


0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0040 

0041 


0042 

0044 


0046 

0048 

0049 

0050 

0052 


0053 

0055 

0056 

0057 

0058 

0059 

0060 


0062 

0063 

0064 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 


0076 

0077 


NOPSPC'CTRI 1  ♦  ISADD)  *  NOPSPC'CTRI 1  ♦  REGASP) 

LSTSPC * CTRI 1  ♦  ISADD)  -  REGASP 
LNKSPC 'CTRI 1  ♦  ISADD)  *  0 
FI  GSPC 'CTRI  1  ♦  ISADD)  *  0 

LSTSPC ' CTRI 1  ♦  NOPSPC'CTRI t  ♦  REGASP))  *  ISADD 
NOPSPC ' CTRI  1  ♦  REGASP)  »  ISADD 
NUMRET  *  NUMRET  ♦  1 

IFMFIGSPC'CTRI  1  ♦  NXTADD)  .AND.  FI OMSK)  .NE.  0)  GO  TO  200 
ISADD  «  NXTADD 
GO  TO  100 
C 

C  DELETE  SING1E  VALUED  FUNCTION 

C  FORWARD  OR  BACK  MVI  CONTINUANT  POINTER  FI  AGS  MAY  HAVE  TO  BE  REMOVED 
200  IFMFIGSPC'CTRI  1  ♦  THIS)  .AND.  F1AG11)  .NE.  0)  LSTCON  =  .TRUE. 

IFMFIGSPC'CTRI  1  ♦  THIS)  .AND.  FIAG10)  .NE.  0)  BAKCON  «  .TRUE. 

C  IF  THE  LIST  EXTENDED  TO  BOTH  A  PREVIOUS  AND  F01  LOWING  CONTINUANT, 

C  DO  NOT  REMOVE  POINTER  FI  AGS 

IF'LSTCON  .EQ.  .FALSE.  .OR.  BAKCON  .EQ.  .FALSE.)  GO  TO  220 
LSTCON  =  .FALSE. 

BAKCON  =  .FALSE. 

C  IS  THE  FUNCTION  HEAD  OF  A  CON  FI  ICT  LIST 
220  IF'THIS  .NE.  I  ADD)  GO  TO  400 
NXFUNC  *  LNKSPC ' CTRI 1  ♦  I ADD) 

C  IF  THIS  FUNCTION  IS  THE  ONI  Y  ONE  ON  THE  CONn  ICT  LIST,  GO  TO  300. 

C  OTHERWISE,  PLACE  NEXT  FUNCTION  ON  C0NF1  ICT  LIST  IN  'BEAD  OF 
C  CONFI  ICT  LIST’  LOCAT'ON  ( IADD) 

IF'NXFUNC  .FQ.  IADD)  GO  TO  300 

NOPSPC ' CTRI l  ♦  IADD)  =  NOPSPC'CTRI l  ♦  NXFUNC) 

LSTSPC  '  CTRI  1  ♦  IADD)  *  LSTSPC 'CTRI  1  ♦  NXFUNC) 

LNKSPC  <  CTRI  1  ♦  IADD)  *  LNKSPC 'CTRI  1  ♦  NXFUNC) 

FI  GSPC 'CTRI  1  ♦  IADD)  =  FIGSPC'CTRII  ♦  NXFUNC) 

FI GSPC < CTRI  1  ♦  IADD)  «  FIGSPC'CTRII  ♦  IADD)  .OR.  FISMSK 

IF*  (FIGSPC'CTRI  1  ♦  IADD)  .AND.  FlfaNSK)  .EQ.  0)  GO  TO  270 
C  IF  THE  MOVED  FUNCTION  IS  A  MVI  .  THE  POUTER  FROM  THE  LAST  VALUE  OF 
C  THE  LIST  TO  THE  HEAD  MUST  BE  UPDATED. 

KVAL  *  LSTSPC* CTRI  1  ♦  1*DD. 

250  KVAL  *  LSTSPC* CTRI  1  ♦  KVAL) 

IF*  (FIGSPC'CTRI  1  ♦  LSTSPC  <  CTRI  1  ♦  KVAL))  .ANP.  FI  OMSK)  .EQ.  0) 

1  GO  TO  250 

LSTSPC < CTRI  1  ♦  KVAL)  *  IADD 
270  LOC  *  NXFUNC 
C  RFTURN  LOCATION  TO  AVAILABI  E  SPACE 
300  NOPSPC < CTRI  1  ♦  LOC)  «  NOPSPC'CTRI  1  ♦  REGASP) 

LSTSPC* CTRI  1  ♦LOC)  *  REGASP 
LNKSPC < CTRI 1  ♦  LOC)  «  0 
FI  GSPC* CTRI  1  ♦  LOC)  =  0 
NOPSPC'CTRI  1  ♦  LSTSPC 'CTRI  1  ♦  LOC))  *  LOC 
LSTSPC * CTRI  1  ♦  NOPSPC'CTRI  1  ♦  LOC) )  =  LOC 
NUMRET  *  NUMRET  *  1 
RFTURN 
C 

C  FUNCTION  TO  BE  DELETED  IS  NOT  THE  HEAD  OF  A  CONFI  ICT  LIST. 

C  THE  FUNCTION  PRECEDING  THIS  (FUNCTION  BEING  DELETED)  MUST  POINT  TO 
C  THE  FUNCTION  FOI  LOWING  THIS 

400  LNKSPC  *  CTRI  1  ♦  LAST)  *  LNKSPC  *  CTRI  1  ♦  THIS) 

GO  TO  300 
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C  •••  INDEXED  DELETE 
C 

C  FUNCTION  MUST  BF  A  MVI  OR,  IF  SVI  ,  ABS'lPOS)  »  1  WITH  PROPER  TYPE. 
C  DELETE  VALUE  AT  LOC.  DEFEAT  SAVED  INDEX  FOR  THIS  LIST  UNTIL  AFTER 
C  NEXT  RETRIEVAL. 

500  FI GSPC ' CTRI  1  ♦  THIS)  =  FIGSPC'CrRIt  ♦  THIS)  .OR.  FI  4MSX 

C 

C  INDEXED  DELETE  CAN  BE  RFDUCFD  TO  FOUR  CASES.  DELETE  VALUE  IN 
C  FIRST,  MIDDLE,  OR  LAST  POSITION  ON  LIST,  0R  REDUCE  TO  SVI . 

C 

NEXT  *  LSTSPC 'CTRI  1  ♦  LOC) 

NPRIOR  *  LNKSPC'CTRl  1  ♦  IOC) 

C 

C  IS  LOC  THE  LAST  POSITION  IN  THE  LIST  ? 

IF'NEXT  .EQ.  THIS)  GO  TO  600 
C 

C  IS  LOC  THE  FIRST  POSITION  IN  THE  LIST  ? 

IF < LSTSPC 'CTRI 1  ♦  NPRIOR)  .FQ.  THIS)  GO  TO  700 
C 

C  VALUE  IS  IN  A  MIDDLE  POSITION  IN  THE  LIST.  RECONNECT  VALUES 
C  PRECEEING  AND  FOI LOWING  LOC. 

C 

LSTSPC i CTRI I  ♦  NPRIOR)  =  NEXT 
LNKSPC  < CTRI  1  ♦  NEXT)  =  NPRIOR 
GO  TO  300 
C 

C  DELETE  VALUE  IN  LAST  POSITION  IN  LIST 
600  LSTSPC ' CTRI  1  ♦  NPRIOR)  =  NEXT 

NFXTl  =  LSTSPC 'CTRI  1  ♦  NEXT) 

LNKSPC ' CTRI  1  ♦  NFXTl)  =  NPRIOR 
IF<<FIGSPC<CTRI1  ♦  LOC)  .AND.  FLAG!  1 )  ,NE.  0) 
l  FIGSPC<CTRI  1*NPRI0R>  =  FI  GSPC <CTRI  1  ♦NPRIOR)  .OR.  FI  AG1 1 
GO  TO  800 
C 

C  DELETE  VALUE  IN  FIRST  POSITION  IN  LIST 
700  LNKSPC <CTRI I  ♦  NEXT)  =  NPRIOR 
LSTSPC  <  CTRI  1  ♦  THIS)  =  NFXT 
C 

C  CONVERT  TO  A  SING1E  VALUE  LIST  ? 

C 

800  I F < LNKSPC <CTHI  I  ♦  NPRIOR)  .NE.  NPRIOR)  GO  TO  300 
C  IF  DELETING  LAST  VALUE,  RESET  NEXT  TO  FIRST  VALUE 
IF 'NEXT  .FQ.  THIS)  NEXT  =  NPRIOR 
LSTSPC 'CTRI  1  ♦  THIS)  =  NODSPC'CTRI  l  ♦  NEXT) 

FI GSPC 'CTRI 1  ♦  THIS)  * 

1  ( FI  GSPC  <  CTRI  1  ♦  THIS)  .OR.  FIGSPC'CTRll  ♦  NEXT))  .AND.  NFI023 
FIGSPC'CTRl  I  ♦  NFXT)  =  0 
LNKSPC' CTRI  I  ♦  NEXT)  =  0 

NODSPC'CTRI  1  ♦  NEXT)  =  NODSPC'CTRI  1  ♦  REGASP) 

LSTSPC 'CTRI  1  ♦  NEXT)  *  REGASP 

NODSPC'CTRI!  ♦  LSTSPC 'CTRI  1  ♦  NEXT)  >  *  NFXT 

LSTSPC ' CTRI  1  ♦  NODSPC'CTRI 1  ♦  NEXT))  «  NEXT 

NVMRET  =  NUMRET  ♦  1 

GO  TO  300 

END 
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c 

c 

c 

0001 

0002 

0003 

0004 


000S 


OWD 


0007 

0008 


0009 

0010 

0011 

0012 

0013 


0014 

0015 

0016 

0017 

0018 

0019 

0020 


C 

D 

0021 

0023 

0024 

0025 

0026 

0027 

0028 

C 

0029 
0030  1 


0031 

C 


SUBROUTINE  LVSETP 
IMPLICIT  INTEGER (A-Z) 

REAL *4  DEFECT . CORE , TOP , BOTTOM 

LOGICAL* 1  SNGLBK, SETUP, NCTRAN, IN1STR, IN2STR,FPISTR,FP2STR,DL1STR, 

1  DL2STR ,  DUMPFI  .CURENT, IN2TMP,FP2TMP,DL2TMP,FINPFI , 

2  DLETFI  .NSRTFI  ,REORG,FULL,RPLACE 

COMMON  /IVARGS/  IFUNC,  1ARG,  IPOS,  ITYP,  IVAL.NVAL.NSKIP,  ITESTR, 

1  INCI UD, INPXON, IVALSt 10) , ITYP1 ( 10> .SRCSUF, 

2  LNKSUF , SNKSUF , INSTYP 

COMMON  /LVREGS/  CURPAGM)  ,REQPAG<4)  .LSTVPGM) , MSARET , 

1  HREQPG . NXTMSA , HACTPG <  2  > , READCT , USECNT , D I RP AG , 

2  DIRCNT,0UTL0C.0UTDIR<256) ,RWBUF<1> 

COMMON  /1VMASK/  MWR I TE , NOTUSP , NEVCON , FI GMSK , MASKSF , MASKPF 
COMMON  /IVF1AG/  FI  OMSK ,  FI  1 MSK ,  FI  2MSK,  FI  3MSK,  FI  4MSK ,  FI  SMSK ,  FI  G67 , 

1  FIAG8,FIAG9,F1  AG10.FI  AGl'l, FI  AG12.FIAG13.fi  AG14, 

2  FLAG  15 

COMMON  /LVRANP/  PR I ME , SEED , NROW . DNOPE.DROW ,01 DNOP.LISTSZ, 

1  GRNTBI (256) 

COMMON  /I.VCRNT/  REGASP ,  CTR1PT ,  CTRL  1 ,  LEASTV ,  NTFREE .  FREE ,  DREGSP , 

1  MSA ,  PAG1.0C ,  CURENT 

COMMON  /IVBUFR/  PAGSZE .  NWCH AN ,  OLCHAN ,  CMP ANP ,  PAGHDR ,  BITSZE ,  D I RSZF , 
1  INCORE , HDRSZE , MSADIR , SUFSZE , BI  KSZE .DIRBIK , PAGPD4 

COMMON  /I VHDVI /  THSMSA , REGAS , P AGENO , CONTNO , I NSPEL , 

1  USECT , HDR FIG , READVI  , 01  DNPB , DNOPEH , NROWH , DROWH 

COMMON  /I VSWIT/  SETUP, SNGI BK.NXTRAN, IN1STR, IN2STR.FP1STR.FP2STR, 

1  DL1STR.DL2STR,  IN2TMP , FP2TMP , DL2TMP , DUMPFI  , 

2  F I NPFI  ,  DLETFI  .NSRTFI 

COMMON  /I VVSEQ/  ISEQSZ , I SOPOS , LASTSO , SEQSPC  < 1 ) 

COMMON  /IVPRAM/  BITI OC, LENGTH, I ERR. ERRNUM, BINARY  2CP. MOPE, PAGES, 

1  LUN 

COMMON  /IVSTAK/  CT'RI  EV ,  NUN  VAR ,  ST  ACK  U ) 

COMMON  /I  VITIL/  FILSPC<39>  ,DEFECT<2) 

COMMON  /I  VI NS 1/  REORG , FULL , RPLACE 
COMMON  /IVRUN/  RUNTYP , CORE 

COMMON  /IVVTR1/  NOPSPCM) 

1  /IWTR2/  LSTSPC  <  1 ) 

2  /IVVTR3/  LNKSPC  <  1 ) 

3  /IVVTR4/  FIGSPCf  1) 

PAUSE  ’IN  LVSETP’ 

IF<SNGI BK)  GO  TO  120 

PAGHDR  =  PAGSZE  ♦  HDRSZE 

BI  KSZE  =  PAGBDR  '64 

PAGHD4  =  4* PAGHDR 

DIRSZE  =  64* ( (INCORE/64)  ♦  1) 

DIRBIK  =  DIRSZE/64 

Bl'FSZE  =  DIRSZE  ♦  ( INCORE* PAGHDR) 

TYPE  1 

FORMAT ( ’  PLEASE  ENTER  FILE  NAMES  OF  OID  ANP  NEW  GRAPHS’/ 

1  ’  IN  COMMANP  STRING  FORMAT  (NEW. EXT  *  OID. EXT)’/ 

2  ’  .GRF  IS  ASSUMED  EXTENSION’/) 

IFf ICSKF1LSPC, DEFECT, , ,0)  .NE.  0)  STOP  ’ INVALID  COMMANP  STRING’ 
RUN  TYPE  1  -  CREATE  NEW  GRAPH 
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^ — •  •  <4. _ — — .  -rr'' 


1 — .  •  -A  _ 

C 

RUN  TYPE  2  -  UPDATE  01. D  GRAPH 

C 

RUN  TYPE  3  -  QUERY  OLD  GRAPH 

0033 

IF'RVNTYP  .EQ.  3)  GO  TO  100 

C 

ASSIGN  CHANNEL  TO  OUTPUT  (NEW)  GRAPH 

0035 

NWCHAN  *  1GETCO 

0036 

IF'NWCBAN  .IT.  0)  STOP  ’NO  OITPUT  CHANNEL  AVAlLABIE’ 

0030 

IF( IFETCH(FILSPC< 1) )  .NE.  0)  STOP  'OUTPUT  DEVICE  HANDLER  FETCH 

1  FAILURE' 

0040 

1F‘ IENTER'NWCHAN ,FILSPC‘ 1 > ,0)  .IT.  0)  STOP  'ENTRY  FAILURE’ 

0042 

IF1RUNTYP  .EQ.  1)  GO  TO  110 

C 

ASSIGN  CHANNEL  TO  INPUT  (01D>  GRAPH 

0044 

100 

01  CHAN  =•  IGETCO 

0045 

IF'OICHAN  .1T.0)  STOP  'NO  INPUT  CHANNEL  AVAILABLE' 

0047 

IF<IFETCH<FlLSPCn6>>  .NE.  0)  STOP  'INPUT  DEVICE  HANDLER  FETCH 

1  FAILURF’ 

0049 

IFaOOKUP<01CBAN,FILSPC<  16))  .IT.  0)  STOP  'INPUT  FILE  LOOKIT 

1  FAILURE’ 

C 

READ  OID  GRAPH  INTO  BUFFER  AS  DEFINED  BY  STORED  IN-CORE  DIRECTORY 

0051 

CALL  LVFECH 

D 

PAUSE  ’  LEAVING  LVSETP  1' 

0052 

r 

RETURN 

C  CREATION  RUN 

0053 

110 

READCT  =  1 

0054 

r» 

USECNT  *  1 

0055 

120 

SFED  =  PRIME/2 

0056 

NROW  =  SEED 

0057 

OIDNOD  =  SEED  -  PRIME 

0058 

DROV  =  PRIME 

0059 

✓ 

DNODE  =  PRIME 

0060 

LISTSZ  =  1 

0061 

REGASP  =  1 

C  SET 

UP  SINGLE  BIOGlC? 

0062 

IF(SNGIBK)  GO  TO  160 

0064 

140 

DO  145  I  *  1.64 

0065 

J  =  4*  f 1-1 ) 

0066 

GRNTBI  <  J  ♦  01 DNDH)  *  OI  DNOD 

0067 

GRNTBKJ  ♦  DNODEH )  *  DNODE 

0068 

GRNTBI  <J  ♦  NROWH)  =  NROW 

0069 

145 

GRNTBKJ  ♦  DROWH)  =  DROV 

0070 

TOP  =  INCORE- 1 

00:  1 

BOTTOM  =  INCORE 

0072 

IF ‘BOTTOM  .EQ.  0)  BOTTOM  =  1 

0074 

CORE  =  TOP/BOTTOM 

C  SET 

UP  DIRECTORY  AVAlLABIE  SPACE 

0075 

DREPSP  -  1 

0076 

DO  150  I  *  2.D1RSZE 

0077 

NQUSPCM)  =  1-1 

0078 

LSTSPC « I - 1 )  =  I 

0079 

LNKSPC  <  I )  -  0 

0080 

150 

FIGSPCM)  =  FI3MSK 

0081 

NODSPC f 1 )  *  DIRSZE 

0082 

LNKSPC ( 1 )  *  0 

0083 

FI  GSPC  <  1 )  -  FI3MSK 

0084 

C 

LSTSPC ‘DIRSZE)  *  1 
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0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 


0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0111 


0112 

0113 

0114 

0115 

0116 

0117 

0119 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 


0131 

0132 

0133 

0134 


C  SET  UP  WRKSPC  OR  SINGLE  C.  PT. 

CTR1  PT  *  DIRSZE 
ISTLOC  *  DIRSZE  ♦  HDRSZE 
160  ENPLOC  *  CTRIPT  ♦  PAGBDR 
CTRI  1  •  CTRI  PT  ♦  HDRSZE 

CNTRI  1  =  CTRI  l  ♦  1 

DO  170  I  *  CNTRI  1,  ENPLOC 
LNKSPC  ' 1 )  *  0 
170  FI  GSPC ' 1 )  *  FI  3MSK 
C 

C  INITIALIZE  AVA1LABIE  SPACE  RING  STRUCTURE  OF  THE  REQUESTED  CONTROl 
C  POINT  OF  WRKSPC .  IF  THIS  IS  AT  THE  BEGINNING  OF  A  CREATION  RUN, 

C  IT  IS  C.  PT.  #1,  THEN  COPY  TO  THE  OTHER  C.  PTS. 

SETUP  *  .TRUE. 

CALL  LVGRN' REGASP) 

01  D*REGASP 

DO  180  I =2 , PAGSZE 
CALL  LVGRN  ' NEW ) 

NOPSPC  '  NEW  ♦  CTRI  1 )  =01 D 
LSTSPC'OID  ♦  CTRI  1 )  =  NEW 
180  OID=NEW 

NOPSPC  '  REGASP  ♦  CTRI1)  =01 D 
LSTSPC '01 D  ♦  CTRL  1 1  * REGASP 
NROW=SEED 

OIDNOP  =  SEED  -  PRIME 
DROW  *  PRIME 
DNOPE’PRIME 
SETUP  =  .FALSE. 

LIST  *  INCORE 
IF'SNGI BK)  LIST  =  1 
DO  200  1*1, LIST 
C 

C  SET  HEADER  WORDS  FOR  THE  CONTINUANTS 
NOPSPC  <  CTRL PT+ REGAS) = REGASP 
LNKSPC  < CTRI PT» INSPEL) =0 
LNKSPC ' CTRI PT* VSECT ) =0 
FIGSPC'CTRLPT*HDRFIG)  =  0 
FI GSPC  ' CTRL  PT ♦ READY! ) *  RE ADCT 
IF'SNGIBK)  GO  TO  200 
IF' I  .EQ.  1)  GO  TO  195 

C  COPY  AS  RING  STRUCTURE  TO  REMAINING  C.  PTS. 

DO  190  K=l, PAGSZE 

NOPSPC 'CTRI  1  ♦  K)  =  NOPSPC' ISTLOC  ♦  K> 

LSTSPC'CTRI  1  ♦  K)  =  LSTSPC1  ISTLOC  ♦  K> 

LNKSPC  <  CTRI 1  ♦  K)  =  0 
190  FI  GSPC 'CTRI  1  ♦  K)  =  FI  3MSK 
195  CTRI PT  *CTR1 PT  »P AGHDR 

CTRI  1  =CTRI  PT  *HDRSZE 
200  CONTINUE 

IF'. NOT.  SNGIBK)  GO  TO  210 
C 

C  COMPLETE  HEADER  WORDS  FOR  SING1E  CONTINUANT 
C  ASSUME  CORRECT  OUTCORE  DIRECTORY  BLOCK  IS  IN  CORE 
NOPSPC 'CTRIPT  ♦  THSMSA)  =  N  XT  MSA 
LSTSPC 'CTRIPT  ♦  PAGENO)  =  REQPAG'l) 

LSTSPC 'CTRI  PT  ♦  CONTNO)  =  REQPAG'2) 

NXTMSA  •  N XT MSA  ♦  BI KSZE 
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\ 


0135 


0136 

0137 

0130 


0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0149 

0150 

0151 

0152 

0153 

01S4 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0167 

0168 

0170 

0171 

0172 

0173 


0174 

0176 


0177 

0178 


D  PAUSE  ’  LEAVING  LVSETP  2’ 

RETURN 

C 

C  CREATE  CONTINUANTS  BY  PAGE  ORDER 
210  PAGNUR  «  0 

CTRIPT  =  DIRSZE 
CTRI  1  =  CTRI  PT  ♦  HDRSZE 

C 

C  CREATE  PAGE  PAGNVM ,  CONTINUANT  CONTIN. 

C  COMPLETE  HEADER  WORDS  FOR  CONTINUANTS 
LIST  -  HREQPG 
DIRCNT  *  0 
DIRPAG  *  1 

C  INITIALIZE  NXTRSA  TO  LOCATION  OF  PAGE  1,  CONT  0 
NXTMSA  =  DIRBIK  ♦  18 
DO  300  1=1, LIST 
PAGNUR  =  PAGNUR* 1 
NURCON  =  STACK < PAGNUR)  ♦  I 
DIRCNT  *  DIRCNT  ♦  1 
IF'DIRCNT  .NE.  1)  GO  TO  21S 
DO  214  J=1 ,256 

214  OUTDIR'J)  =  0 
C 

215  DO  220  K=l, NURCON 
CONTIN  =  K-l 

NODSPC < CTRI  PT  ♦  THSRSA)  =  NXTMSA 
LSTSPC < CTRI  PT  ♦  PAGENO)  *  PAGNUM 
LSTSPC < CTRI PT  ♦  CONT NO)  =  CONTIN 
C  OUTPUT  UNUSED  CONTINUANT  TO  DISK 
LENGTH  =  PAGHDR 
BUFIOC  =  CTRI  PT  *  1 
ERRNUR  =  1 

MSA  =  NODSPC < CTRIPT  ♦  THSRSA) 

CALL  LVPAGW 

C  ENTER  CONTINUANT  LOCATION  INTO  OUTCORE  DIRECTORY 
OUTLOC  =  I  +  64«  f DIRCNT- 1 )  ♦  CONTIN 
OUTDIR<OVTLOC)  =  MSA 
NXTMSA  =  NXTRSA  ♦  BI KSZE 
C  UPDATE  CONTROL  POINTER 

CTRI PT=CTRI  PT+PAGBDR 
I F < CTRIPT . GE . BUFSZF)  CTRI  PT*DIRSZE 
220  CONTINUE 

C  SAVE  THIS  BLOCK  OF  THE  OVTCORE  DIRECTORY  IF  ALL  4  SEGMENTS  ARE  FILLED 
IF<DIRCNT  .IT.  4)  GO  TO  300 
CALL  LVDRWR 
DIRCNT  =  0 
DIRPAG  =  DIRPAG  ♦  1 
300  CONTINUE 

C 

C  SAVE  ROST  RECENT  OITCORE  DIRECTORY  BLOCK  IF  NECESSARY 
IF'DIRCNT  .EQ.  0)  GO  TO  310 
CALL  LVDRWR 
C 

C  ZERO  OUT  REMAINING  UNUSED  OUTCORE  DIRECTORY  BLOCKS 
310  DO  312  1*1,256 

312  OUTDIRU)  •  0 

C 
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0179 

0181 

0182 

0183 


0184 

018S 

0186 


0187 

0188 

0189 

0191 

0192 

0193 

0194 

0195 

0196 


0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 


315  IF'DIRPAG  .EQ.  16)  GO  TO  320 
DIRPAG  *  DIRPAG  *  1 
CALL  LVPRVR 
GO  TO  315 
C 

C  BRING  FIRST  OtTCORE  DIRECTORY  BLOCK  INTO  MAIN  MEMORY 
320  REQPAG  ' 1 >  *  1 
REQPAG'2>  *  0 
CALL  LVMSA(DUMMY) 

C 

C  IF  IT  IS  NOT  THERE,  BRING  PAGE  1,  CONTINUANT  0  BACK  INTO  CORE 
CTRI.PT  *  DIRSZE 
CTRL  1  «  CTRIPT  ♦  HDRSZE 
IF' (LSTSPC 'CTRI  PT  ♦  PAGENO)  .EQ.  1)  .AND. 

1  (LSTSPC 'CTRIPT  ♦  CONTNO)  .EQ.  0))  GO  TO  340 
MSA  *  Ol'TDIR'l) 

Bl'FLOC  =  CTRI  PT  ♦  1 
LENGTH*PAGBDR 
ERRNUM  *  2 
CHAN  *  NVCHAN 
CALL  LVPAGR'CBAN) 

C 

C  INSERT  INCORE  CONTINUANTS  INTO  DIRECTORY  PAGE 
340  CTRI  PT  =  -  HDRSZE 
CTRL  1  ■  0 
TMPSZE  »  PAGSZE 
PAGSZE  *  DIRSZE 
CNTRI  1  *  DIRSZE  -  PAGBDR 
INPXON  »  0 
NVAL-1 
INSTYP-1 

DO  400  K*l, INCORE 
CNTRI.l  »  CNTRL1  ♦  PAGHDR 
PAGE  *  LSTSPC '  CNTRI.  1  ♦  PAGENO) 

CONT  «  LSTSPC < CNTRI 1  ♦  CONTNO) 

IARG  «  CONT  ♦  1 
IFUNC«  PAGE 
SRCSUF  »  IARG 
LNKSUF  .  1FUNC 
D  PAUSE  *  B  FIND’ 

CALL  LVFINP 

D  PAUSE  ’  AFT  FINP’ 

IVALS'  1 ) «  CNTRI  1 
ITYPl<l)al 
SNKSUF  »  IVALS' 1) 

CALL  LVNSRT 
400  CONTINUE 

DREGSPaREGASP 
REGASP* 1 
PAGSZE  *  TMPSZE 
C 

C  ESTABLISH  REGISTERS 
C  PAGE  1,  CONT  0  IS: 

C  HIGHEST  ACTIVE  PAGE 

C  CURRENT  PAGE  -  CONT 

C  PREVIOUS  CURRENT  PAGE  -  CONT 

C  REQUESTED  PAGE  -  CONT 
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c 

0222  HACTPG' 1)  «  0 

0223  HACTPG<2>  *  OFTDIRU) 

0224  CTRIPT  =  DIRSZE 

0225  CTRl  l  *  CTRIPT  ♦  HDRSZE 

C 

0226  CVRPAGU)  *  1 

0227  CURPAG<2>  *  0 

0226  Cl!RPAG<3>  =  OUTDIRU) 

0229  CURPAGM)  *  CTRIPT 

C 

0230  REQPAGO)  =  CURPAGU) 

0231  REQPAG'2>  *  -2 

0232  REQPAG<3>  *  CITRPAGO) 

0233  REQPAGM)  =  CURPAGM) 

0234  CURENT  =  .TRUE. 

C 

C  DECLARE  THE  LAST  CONTROL  POINT  AS  AVAILABLE. 
0235  LEAST V  =  FREE 

0236  CNTRL1  *  BUFSZE  -  PAGBDR 

0237  LSTVPGO)  =  LSTSPC'CNTRI  1  ♦  PAGENO) 

0236  LSTVPG'2)  =  LSTSPC'CNTRL 1  +  CONTNO) 

0239  LSTVPG'3>  =  NOPSPC'CNTRI 1  ♦  THSNSA) 

0240  LSTVPGM)  =  CNTRL1 

D  PAUSE  ’  LEAVING  LVSFTP  3* 

0241  RETURN 

0242  END 
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-v 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 


0019 

0020 

0021 


0022 


C 

C 

C 


c 


BLOCK  DATA 

IMPLICIT  INTEGER'A-Z> 

REALM  DEFEXT  _ 

LOGICAL* I  SNGI BK , SETUP , NXTRAN , I N 1 STR , I N2STR , FP 1STR , FP2STR .DL1STR, 

1  DL2STR ,  DUMPFI  ,  CURENT ,  I  N2TMP ,  FD2TMP ,  DL2TMP ,  F I NPFI  , 

2  DLETFI  ,  NSRTFI  .  REORG .  FULL ,  RPLACE 

COMMON  /LVARGS/  IFUNC, IARG, IPOS, ITYP, 1VAL.NVAL.NSKIP, ITESTR, 

INC1 UD, INPXON , IVALS* 10) , ITYP1 ( 10) .SRCSVF. 

LNKSUF ,  SNKSl'F ,  INSTYP 

COMMON  /I  VFI  AG/  FI0MSK.FI  1 MSK ,  FI  2MSK ,  FI  3MSK ,  F14MSK ,  FISMSK ,  FI  067 , 
FI  AG8.FI  AG9.FI  AG10 ,FI  AG1  1  , FI  AG  12, FI  AGI3.FI  AGI4 , 

FI  AG  1 5  _ 

COMMON  /IVCRNT/  REGASP, CTRI  PT.CTRI  1 , LEASTV , NTFREE , FREE , DREGSP , 
MSA.  PAGIOC.  CURENT 

COMMON  /IVBUFR/  PAOSZF, NWCHAN ,01 CBAN,CMPANP,PAGBDR,BUFSZE,D1RSZF, 
I NCORE .  HDRSZE ,  MSADIR,  SUFSZE ,  BI  KSZE ,  D I  RBI  K ,  PAGHD4 
COMMON  /I VHDVI /  THSMSA , REGAS , P AGENO , CONTNO , I NSPEL , 

USECT , HDRFI G , READVI ,01 DNPH , DNOPEH , NROWB , DROWB 
COMMON  /1VSWIT/  SETUP ,SNG1  BK . NXTRAN , IN 1STR , IN2STR , FP1STR.FP2STR . 
DL1STR , DL2STR . IN2TMP ,FP2TMP , DL2TMP , DUMPFI  , 

FINPFI  .DLETFI  , NSRTFI 

COMMON  /IVPRAM/  BUF1 OC . LENGTH, IERR, ERRNVM .BINARY ,BCP, MOPE, PAGES, 


1 

2 

C 

1 

2 

1 

1 


1 

1 

2 


1 


COMMON 

COMMON 

COMMON 


LUN 
/1VMASK/ 
/1VUTIL/ 
/I  V 1  NS  1  / 


MWR I TE , NOTUSP , NEWCON , FI GMSK . MASKSF . MASKPF 
F1LSPC<39>  , DEFEXT < 2 ) 

REORG, FULL, RPLACE 


DATA  FI  OMSK ,  FI  1MSK ,  FI  2MSK ,  FI  3MSK ,  F14MSK ,  FI  5MSK ,  FI  G67 ,  FI  AG8 , 

1  FI  AG9, FI  AG10.FI  AG!  1  ,F1  AG12.F1  AG13.F!  AG14.FI  AG  15 

2  /  200, ■ 100, "40, '20,  10,  4,  3, 

3  400,  1000,  2000.  4000,  10000, "20000,  40000,  100000/ 
DATA  THSMSA , REGAS , P AGENO . CONTNO , I NSPEL , USECT , 

1  HDRFI G , READVI , 01  DNPH , DNOPEH , NROWB , DROWB 

2  /I  2  1  2  1,2  1 , ° , 1 , 2 , 3 , 4/ 

DAT  A  '  MWR  I  TE ,  NOTUSP ,’  NEWCO.V .  Ff  GMSK ,  MASKSF ,  MASKPF 
1  /  4,  2,  "I,  "7.  "1777.  176000/ 

DATA  SVFSZE, NTFREE, FREE, B I NARY, BCP, INCIUD, INSTYP, MSADIR. 

1  IPOS, ITYP.NVAL, ITESTR, INPXON . HDRSZF.PAGI  OC, 01  CHAN 

2  / 10 ,0 , 1 ,0, 1 ,0.0.2, 

3  1,3, 1,-1, 0,2. -1,-1/ 

DATA  ITYP 1/1 0*0/ 

DATA  IVALS/!0*0/ 

DATA  SETUP, SNGI  BK . NXTRAN,  1.N1STR.  IN2STR,FP1STR,FP2STR, 

1  DL1STR.DL2STR,  IN2TMP  .FP2TMP ,  DI.2TMP  , DUMPFI  , 

2  FINPFI  .DLETFI  , NSRTFI  , REORG. FULL 

3  / . FALSE . , . FALSE . , . FALSE ...  FALSE ., . FALSE . . . FALSE . , . FALSE . , 

4  .FALSE. , . FALSF . , .FALSE. . .FALSE. , .FALSE. . .FALSE . , 

5  . TRUE ...  TRUE .. . TRUE .,. FALSE .,. FALSE . / 

DATA  DEFEXT  /6RGRFGRF , 6RGRFGRF/ 


C 

C  IF  THE  FOI  LOWING  FLAGS  ARE  ON.  THEY  REPRESENT  THE  FOI  LOWING: 

C 

C  FI0MSK-  HEAD  OF  A  MULTIVALUED  LIST 

C  FI  1MSK-  THE  CELL  IS  IN  WORKING  SPACE,  NOT  AVAILABI E  SPACE 
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A 


C  FI2MSX-  VALUE  ON  A  MULT I VALUE  LIST 

C  FL3MSK-  A  NOPE  HAS  BEEN  DEFINED  KITH  THIS  RELATIVE  ADDRESS  AS  ITS  VALUE 
C  FL4MSK-  THE  SAVED  INDEX  OPERATION  IS  NOT  IN  EFFECT  FOR  THIS  LIST 
C  F15MSK-  HEAD  OF  A  CONFLICT  LIST 
C  F1G67  -  00-  A  RANDOM  NUMBER 
C  01-  NUMERIC  DATA  (INTEGER) 

C  10-  A  CONTINUING  STRING  OF  HOI LERITH  DATA 

C  11-  THE  ONLY,  OR  FINAL,  CELL  IN  A  HOLLERITH  DATA  STRING 

C  FLAGS  -  THE  CELL  CONTAINS  A  POINTER  TO  SEQUENCE  SPACE 
C  FI.AG9  -  UNUSED 

C  FLAG  10-  MULTIVALUE  LIST  CONTINUATION  FLAG  (FUNCTION  CONTINUES  ON 
C  PREVIOUS  CONTINUANT.  THIS  CONTINUANT  DOES  NOT  CONTAIN 

C  THE  BEGINNING  OF  THE  LIST 

C  FIAG11-  MULTIVALUE  LIST  CONTINUATION  FLAG  (FUNCTION  CONTINUES  ON 
C  NEXT  CONTINUANT) 

C  FLAG  12-  REORG  INHIBIT  FLAG 

C  FLAG I 3-  THE  CELL  IS  THE  HEAD  OF  A  MULTIVALUE  LIST  WHICB  IS  A 
C  NON-MOVABIE  CONTINUATION  OF  A  LIST  ON  SOME  OTHER  CONTINUANT 
C 

0023  END 


102 


c 

c 


0001 

0002 

0003 

0004 


000S 


flftflg 

ww> 


0007 

0008 


0009 

0010 

0011 

0012 

0013 


0014 

0015 

0016 

0017 

0018 

0019 


0020 

0021 

0022 

0023 

0024 

0025 

0027 

0028 

0029 

0030 


SUBROUTINE  LVFECB 
IMPLICIT  INTEGER <A-Z> 

REAL*4  CORE, TOP, BOTTOM 

LOGICAL* 1  SNGI BK, SETUP, NXTRAN.INI STR. IN2STR,FPISTR,FP2STB,DLISTR, 

1  DL2STR,DUMrFI .CURENT,  IN2TMP,FP2TMP,DL2TMP,FINPFL, 

2  DLETFI  ,  NSRTFI 

COMMON  /LVARGS/  IFUNC, IARG, IPOS, ITYP, IVAL.NVAL.NSKIP , ITESTR, 

1  INCI UD, INPXON, IVALS* 10) , ITYP1 ( 10) ,SRCSUF, 

2  LNXSUF ,  SNKSl'F ,  INSTYP 
COMMON  /IVREGS/  CURPAGM)  ,REQPAG<4)  ,LSTVPG'4> , MSARET, 

1  HREQPG,NXTNSA,HACTPG<2> .READCT .USECNT .DIRPAG, 

2  DIRCNT,0UTL0C,0UTDIR<256) .RVBUFM) 

COMMON  /LVMASK/  NWR ITE ,  NOTUSP ,  NEVCON ,  FIGMSK ,  MASKSF ,  MASKPF 
COMMON  /IVFLAG/  F10MSK.FI  lMSK,FL2MSK,FI3MSK,FL4MSKtFL5NSK,FIG67, 

1  FI  AG8,FI  AG9, FI  AG10,FI.AG1 1  ,Fl.AG12,FI.AGi3,FI  AG14, 

2  FI  AG  15 

COMMON  /lmW/  PR  I  ME  .SEED ,  NROV ,  DNOPE ,  DROV ,  01 DNOP ,  L ISTSZ , 

1  GRNTBL (256) 

COMMON  /I  VCR  NT/  REGASP  .CTRIPT  ,CTRI  1  .LEAST  V  .NTFREE,  FREE,  DREGSP, 

1  MSA , PAGI OC , CURENT  _ 

COMMON  /LVBUFR/  PAGSZE,NVCHAN,OLCHAN,CMPANP,PAGBDR,BUFSZE,DIRSZE, 
1  INCORE , HDRSZE , MSADIR , SUFSZE .BLKSZE ,DIRBLK , PAG8D4 

COMMON  /I.VBDVI./  THSMS  A ,  REG  AS ,  PAGENO ,  CONTNO ,  INSPEL, 

1  USECT ,  HDRF1 G ,  RE  AD  VI  ,  OlDNPfl ,  DNOPEH .  NROVB ,  DROVE 

COMMON  /IVSVIT/  SETUP .SNGIBK, NXTRAN, INISTR, IN2STR,FP1STR,FP2STR, 

1  DL 1STR , DL2STR , IN2TMP , FP2TMP , DL2TMP , DUMPFL , 

2  F I NPFL, DLETFI  ,  NSRTFI 
COMMON  /LWSEQ/  ISEQSZ,  ISOPOS.LASTSO.SEQSPCf  1) 

COMMON  /I.  VP  RAM/  BUFIOC ,  LENGTH ,  I  ERR ,  ERRNUM ,  B I  NARY ,  BCP ,  MOPE ,  PAGES , 

1  LUN 

COMMON  /I  VSTAK/  CURIEV ,  NVMVAR , ST ACK  < 1 ) 

COMMON  /IVRUN/  RUNT YP, CORE 

COMMON  /IVUSER/  USER' 228) 

COMMON  /I  VVTR1/  NOPSPCM) 

1  /I  WTR2/  LSTSPCf  1 ) 

2  /IWTR3/  LNKSPC  <  1 ) 

3  /IVVTR4/  FIGSPCM) 

C 

C  THIS  ROUTINE  READS  A  PREVIOUSLY  CREATED  GRAPH  FROM  DISK  INTO  THE  GIRS 
C  BUFFER  ANP  COPIES  IT  ONTO  A  NEV  DISK  FILE. 

C 

C  READ  IN  SYSTEM  VARIABLES 
D  PAUSE  ’IN  LVFECB’ 

MSA  *  0 
LENGTH  *  256 
ERRNUM  =  29 

I  ERR  =  I READV 'LENGTH, RVBUF' l >  ,MSA,0LC8AN) 

DUMP  *  1 

IF'IERR.LT.0)  CALL  LVERR'DUMP) 

C 

REGASP  »  RVBUF  '  1) 

NXTMSA  *  RVBUF  '  2) 

PAGSZE  *  RVBUF '  3) 

PAGBDR  «  RVBUF <  4) 


0031  BUFSZE  «  RWBl’F *  S> 

0032  OIRSZE  *  RWBUF*  6) 

0033  DREGSP  *  RWBUF*  7) 

0034  INCORE  «  RWBl’F*  8) 

0035  HDRSZE  >  RWBl’F  *  9) 

0036  HREQPG  •  RWBl’F  <  10) 

0037  BACTPG*1>  =  RWBl’F  <11) 

0038  HACTPG*2>  *  RWBl’F <  12) 

0039  READCT  *  RWBl’F*  13) 

0040  BI.KSZE  >  RWBl’F*  14) 

0041  SlIFSZE  «  RWBl’F*  15) 

0042  DIRBIK  •  RWBl’F*  16) 

0043  PRIME  *  RWBl’F*  17) 

0044  SEED  »  RWBl’F*  18) 

0045  LISTSZ  *  RWBl’F*  19) 

0046  ISEQSZ  «  RWBl’F *20) 

0047  DO  S  1  •  1,4 

0048  Cl’RPAG*I>  •  RWBl’F <20*  1 ) 

0049  LSTVPG  *  I  >  *  RWBl’F  <24*  I) 

0050  5  CONTINUE 

C 

C  READ  IN  SAVED  USER  VARIABLES 
0051  DO  7  I  *  1,228 

0052  J  -  I  ♦  28 

0053  7  USER  *  I )  =  RWBl’F*  J) 

C 

0054  USECNT  «=  l 

0055  LEASTV  =  NT FREE 

0056  TOP  *  INCORE- 1 

0057  BOTTOM  ■=  INCORE 

0058  CORE  *  TOP/BOTTOM 

C 

C  READ  IN  GRN  TABLE 
0059  LENGTH  *  256 

0060  MSA  =  1 

0061  ERRNl’M  *  30 

0062  I  ERR  *  I READW* LENGTH, GRNTBM  1) ,  MSA, 01  CHAN) 

0063  DUMP  *  1 

0064  IF* IERR  .LT.  0)  CALL  LVERR*DUMP) 

C 

C  READ  IN  IN-CORE  DIRECTORY 
0066  MSA  »  2 

0067  LENGTH  «  DIRSZE 

0068  ERRNl'M  =  31 

0069  BUFIOC  =  1 

0070  CHAN  =  01  CHAN 

0071  CALL  LVPAGR*CHAN> 

C 

C  COPY  OIT-CORE  DIRECTORY  TO  NEW  DISK  FILE 
0072  DIRPAG  =  17 

0073  10  DIRPAG  =  DIRPAG  -  1 

0074  CALL  LVPRRP(OICBAN) 

0075  CALL  LVPRWR 

0076  IF*DIRPAG  .GT.  1)  GO  TO  10 

C 

C  COPY  OLD  GRAPH  TO  NEW  DISK  FILE 
BUFIOC  *  DIRSZE  ♦  1 


0078 


* 


0079 

ERRNUN  *  32 

OAAA 

UUW 

BIPAGE  »  BACTPG < 1 ) 

0001 

lF'HREQPG  .GT.  HIPAGE)  B IP AGE  -  HREQPG 

C  SEQUENCE  ON  PAGES 

0003 

DO  30  PAGE  «  1.  HIPAGE 

C  SEQUENCE  ON  CONTINUANTS 

0004 

DO  20  I  •  1,  64 

000S 

CONT  -  1-1 

OAOC 

REQPAGU)  »  PAGE 

0007 

REQPAG<2>  *  CONT 

0080 

CALL  LVMSA  ( CONNl'M  > 

0089 

IF*  MSA  RET  .IE.  0)  GO  TO  30 

0091 

MSA  «  NSARET 

0092 

CHAN  >  01  CHAN 

0093 

LENGTH  •  PAGBDR 

0094 

CALL  LVPAGR  < CHAN ) 

0095 

CALL  LVPAGV 

0096 

20 

CONTINUE 

0097 

30 

n 

CONTINUE 

C  EXAMINE  IN-CORE  DIRECTORY  AND  BRING  IN  LISTED  CONTINUANTS 

/wwt 

wWO 

0099 

DO  50  I  *  l.DIRSZE 

IFXFIGSPCU)  .ANP.FL1MSK)  .EQ.0)  GO  TO  50 

0101 

REQPAG< 1)  -  NOPSPC  < I ) 

0102 

REQPAG'2)  -  I  -  REQPAG < 1 )  -  1 

0103 

IF)REQPAG)2)  .IT.  0)  REQPAG<2)  «  REQPAG <2>  ♦  DIRSZE 

0105 

CTRIPT  *  LSTSPOI) 

0106 

CTRll  ■  CTRIPT  ♦  HDRSZE 

0107 

CALL  LVMSA  (CONNUM) 

0108 

MSA  -  NSARET 

0109 

BUFI  OC  =  CTRI  PT  ♦  1 

0110 

LENGTH  *  PAGHDR 

0111 

CALL  LVPAGR^ CHAN) 

0112 

50 

r* 

CONTINUE 

C  ESTABLISH  REGISTERS 

0113 

CTRIPT  »  CVRPAG14) 

0114 

CTRl  l  *  CTRI  PT  ♦  HDRSZE 

0115 

CURENT  =■  .TRUE. 

0116 

REQPAG) 2)  *  -2 

C  READ  IN  SEQUENCE  SPACE  < LATER  VERSION) 

0117 

TYPE  60 

0118 

60 

FORMAT)/,’  GRAPH  HAS  BEEN  PLACED  INTO  MEMORY’,/) 

0119 

RETURN 

0120 

END 
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c 

c 

c 

eeei  subroutine  lvgrmnope> 

0002  IMPLICIT  INTEGER <A-Z) 

0003  LOGICAL* I  SNGI.BK ,  SETUP ,  NXTRAN ,  INISTR,  IN2STR,FP1STR,FP2STR,DL1STR, 

1  DL2STR,DUMPF1.  .CUBENT,  IN2TMP,FP2TMP  ,DL2TMP,FINPFI. , 

2  DLETFI  ,  NSRTFl 

0004  DIMENSION  NOPE(l) 

000S  COMMON  /IVREGS/  CDRPAG<4> ,REQPAG<4) ,LSTVPG<4),MSARET , 

1  HREQPG  t  NXTMSA , HACTPG  < 2 ) ,  RFADCT, USECNT, DIRPAG, 

2  DIRCNT,0UTL0C,0UTDIR<256)  JWBIT»1) 

0006  COMMON  /I  VFI.AG/  FI  OMSK, FI  1MSK.FI 2MSK,fr  3MSK.FI 4MSK.FI  SMSK.FI G67, 

1  FI  AGB,FLAG9,FIAG10,F1AG11,FIAG12,FIAG13,FIAG14, 

2  FI  AG  IS 

0007  COMMON  /I.VBANP/  PRIME, SEED , NROW , DNOPE , DROW , 01 DNOP , L ISTSZ , 

1  GRNTBI <256) 

0008  COMMON  /1VBUFR/  PAGSZE ,  NVCHAN ,  OI  CHAN ,  CMP  iNP ,  PAGHDR ,  BUFSZE ,  D IRSZE , 

1  I NCORE , HDRSZE , MSAD I R.SUFSZE , BI KSZE ,  D I  RBI  X , PAGBD4 

0009  COMMON  /l.VHDVI  /  THSMSA ,  REGAS ,  P AGENO ,  CONTNO ,  I NSPEL , 

1  USECT .BDRFI G , READV1 , 01  DNPH , DNODEH , NROWB , DROVB 

0010  COMMON  /I.VSVIT/  SETUP, SNGIBK ,  NXTRAN ,  INISTR,  IN2STR,FPISTR,FP2STR, 

1  DL1STR, DL2STR , IN2TNP, FP2TMP , DL2TMP , DUMPFI  , 

2  FINPFI  .DLETFI  .NSRTFI 

00 1  i  COMMON  /I.WTR  1  /  NODSPC  <  1 ) 

V  /I  WTR2/  LSTSPC  ( 1 ) 

2  A.  WTR3/  LNKSPC  <  1 ) 

3  /I  VVTR4/  FI  GSPC  <  1 ) 

C 

C  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  PROVIDE  A  SEQUENCE  OF  ’RANDOM’ 

C  NUMBERS  OF  LENGTH  LISTSZ  TO  THE  REQUESTED  PAGE  (CONTINUANT  -  0) 

C 

C  PROGRAM  INITIALIZATION  7 
D  PAUSE  ’IN  LVGRN’ 

0012  PAGE  *  0 

0013  IF<SETUP)  GO  TO  100 

C 

C  IS  THE  PAGE  DEFINED  7 

0015  IF<REQPAG< 1 )  .GT.  HACTPG < 1 ) )  HACTPG < 1)  *  REQPAGd) 

0017  IF<REQPAG< 1)  .GT.  0)  GO  TO  50 

0019  HACTPGd)  *  HACTPGd)  ♦  1 

0020  REQPAGd)  *  HACTPG < 1 ) 

C 

C  OBTAIN  CURRENT  VALUES  FOR  GRN  PARAMETERS  FOR  REQUESTED  PAGE 
0021  50  PAGE  •  REQPAGd) 

0022  GRNPEX  «  4* (PAGE  -  1) 

0023  01  DNOP  =  GRNTBI  (GRNPEX  ♦  OIDNPH) 

0024  DNOPE  *  GRNTBI (GRNPEX  ♦  DNODEH ) 

0025  NROV  «  GRNTBI (GRNPEX  ♦  NROWB) 

0026  DROW  •  GRNTBI (GRNPEX  -  DROVB) 

C 

0027  100  DO  200  J  *  1, LISTSZ 

0020  I  *  J 

0029  NOPE  < I )  *  01 DNOP+PNOPE 

0030  01 DNOP  *  NOPE(I) 

0031  DNOPE  -  DNOPE* 1 

0032  IF(NOPEd). IE. PAGSZE)  GOTO  199 
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C  RESIDUE  GENERATION  ? 

0034  IF'NROV.GT. PRIME)  GO  TO  ISO 

C  ROV  UPDATE 

0636  NROV  >  NROV*SFED 

0037  IF ‘ NROV. GT. PRIME)  NROV  «  NROW-PRIME 

0039  NOPE ( I )  >  NROV 

0040  OIDNOP  «  NOPE)  I ) 

0041  DNOPE  *  PRIME* 1 

C  RESIDUE  GENERATION  ? 

0042  1F‘N0PE(  I )  .NE.SEED)  GO  TO  199 

0044  NROV  =  0 

0045  DROV  •  PRIME 

C  RESIDUE  GENERATION 
0046  150  DROV  »  DROV* I 

0047  NROV  *  NROV  *PROV 

0048  NOPE ( I )  *  NROV 

0049  OIDNOP  =  NOPE  <  I ) 

0050  DNOPE  *  DROV 

0051  IF<NOPE(I) .GT.PAGSZE)  GO  TO  300 

C  OUTPUT  NOPE 

0053  199  IF 'SETUP  .EO-  .TRUE.)  RETURN 

0055  200  NOPE ( 1 )  *  NOPE(I) .OR.l  VI FSB(PAGE.SUFSZE) 

C 

C  UPDATE  HEADER 

0056  2 50  GRNTBI  (GRNPEX  *  OIDNPH)  *  OIDNOP 
0057  GRNTBI  (GRNPEX  *  DNOPEH >  *  DNOPE 

0058  GRNTBI  (GRNPEX  *  NROVB)  «  NROV 

0059  GRNTBI  (GRNPEX  *  DROVH)  «  DROV 

0060  LISTSZ»1 

0061  RETURN 

C 

C  ORIGINAL  CREATION  SEQUENCE  IS  EXHAUSTED,  RECOVER  UN  DEFINED  NODES 
C  BRING  IN  CONTINUANT  ZERO  OF  THE  REQUESTED  PAGE  IF  NECESSARY 
0062  300  REQCON  =  REQPAG'2) 

0063  REQPAG‘2)  *  0 

0064  CALL  LVEXCH 

0065  DO  430  L  *  I , L1STSZ 

0066  DO  400  K=  1 ,  PAGSZE 

0067  LOC  *  CTRIPT  ♦  HDRSZE  *  K 

0068  IF<  (FIGSPC‘LOC) .  ANP.FI3MSK)  .NE.0)  GO  TO  390 

0070  NOPE(L) =K 

0071  FIGSPC<I.OC>  *FIGSPC‘LOC)  .ANP.FI3MSK 

0072  GO  TO  430 

0073  390  IF‘K  .EQ.  PAGSZE)  GO  TO  440 

0075  400  CONTINUE 

0076  430  CONTINUE 

C  BRING  IN  ORIGINAL  REQUESTED  (PAGE.CONT) 

0077  REQPAG‘2)  =  REQCON 

0078  CALL  LVEXCH 

0079  LISTSZ  =  1 

0080  RETURN 

C 

0081  440  TYPE  450 

0082  450  FORMAT ( 1H  , ’ ERROR . . . NUMBER  OF  NOPES  EXCEEDS  REQUESTED  MEMORY.’/’ 

1  PROGRAM  IS  TERMINATED.’) 

0083  ERRNUM  =  10 

0084  PUMP  =  0 

0085  CALL  LVERR'DUMP) 

0086  STOP 

0087  ENP 
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c 

c 

c 

0001  SUBROUTINE  LVNPAG 

0002  IMPLICIT  1NTEGER<A-Z> 

0003  LOGICAL*!  SNG1  BK .SETUP ,  NXTRAN ,  IN ISTR ,  1N2STR ,FP ISTR, FP2STR ,DL ISTR, 

1  DL2STR ,  DUMPFI  ,  CrRFNT ,  I N2TMP ,  PP2TMP .  DL2TMP ,  F I NPFL  , 

2  DLETF1  .NSRTFI 

0004  COMMON  /1VREGS/  CURPAG'4) ,HEQPAG<4> ,LSTVPG(4> .NSARFT, 

1  HREQFG , NXTMSA ,  RACTPG  < 2 ) , READCT , USECNT , DIRPAG, 

2  DIRCNT,0UTL0C.0UTD1R<256>  JIVBUF* 1> 

0005  COMMON  /IVNASK/  MWR I TE , NOTUSP , NFVCON , PI GNSK , MASKSF, MASKPF 

0006  COMMON  /I  VCRNT  /  REGASP  ,CTR1  PT  .CTRi  I ,  LEAST  V ,  NTFRFE ,  FIFE ,  DREGSP , 

1  MSA ,  PAGI  OC.Cl'RENT  _ 

0007  COMMON  /IVBUFR/  PAGSZE, NVCHAN , 01  CHAN , CMPANP , PAGBDR , BUFSZE.D1RSZF, 

1  INCORF, HDRSZE .MSAD1K , SVFSZF.BI  KSZF,  DIRBl  K , PAGBD4 

0008  COMMON  /I VHDV1 /  THSMSA , REGAS. PAGFNO .CONTNO, INSPEL, 

1  USFCT , HDRFI G , RE ADVI  , 01  DNPH , DNOPEH , NROWH. DROVE 

0009  COMMON  /IVSVIT/  SETUP  .SNGI  BK ,  NXTRAN ,  IN  ISTR ,  IN2STR ,  FPISTR.FP2STR, 

1  DL1STR.DL2STR, IN2TNP ,  FP2TMP ,  DL2TNP , ‘DUMPFI  , 

2  F I  Nl'Fl  ,  DLETFI  ,  NSRTFI 

0010  COMMON  /1VPRAN/  BUF1 OC , LENGTH. I ERR , ERRNUN, BINARY, BCP, MOPE, PAGES, 

1  LUN 

0011  COMMON  /IVVTR1/  NOPSPCM* 

1  /I  VVTR2/  LSTSPC  <  I ) 

2  /I  VVTR3/  LNKSPC '  1  > 

3  /I  WTR4/  FI  GSPC  <  1 ) 

C  _ 

C  THIS  ROUTINE  VILL  PLACE  A  NEV  PAGE  (ZEROTH  CONTINUANT)  INTO  THE  BUFFER. 
C  IF  THE  NEV  PAGE  EXCEEDS  THE  NUMBER  OF  PAGES  ORIGINALLY  REQUESTED  BY  THE 
C  USER:  PUT  IT  ON  DISK. 

C  REGISTERS  AND  IN-CORE  AND  OUT -CORE  DIRECTORIES  ARE  UPDATED. 

C 

C  DEFINE  PAGE  NO.  ANP  UPDATE  HIGHEST  ACTIVE  PAGE 
D  PAUSE  IN  I.VNPAG' 

0012  HACTPG  <  1 >  «  RACTPG < I > ♦ I 

0013  BEQPAG‘1)  *  HACTPG)  1 ) 

C 

C  BRING  IN  OIT -CORE  DIRECTORY  PAGE  ANP  DEFINE  OITLOC  (LOC  IN  O-C  D  P> 

0014  REQPAG<2>  *  -1 

0015  CALL  LVMSA  ( OONNl'M ) 

0016  REOPAG'2)  «  0 

C 

C  ARE  ANY  PREALLOCATED  PAGES  (THAT  HAVE  ALREADY  BEEN  OPENED  ON  DISK) 

C  STILL  AVAILABIE  ? 

0017  IF'HACTPG* l i  .GT.  HREQPG)  00  TO  10 

C 

C  REO<P,0)  VAS  CREATED  AT  THE  BEGINNING  OF  THE  PROGRAM 
0019  CALL  LVEXCH 

0020  HACTPG* 2)  *  NSARFT 

0021  RETURN 

C 

C  OPEN  A  PAGE-BI OCX  IN  THE  BUFFER 
0022  10  IF'LEASTV  .EQ.  NTFRFE)  CALL  LVOPEN 

C 

C***  NEV  PAGE  MUST  BE  ADDED  TO  THE  DISK  IMMEDIATELY  FOI  LOVING  THE  LAST 
C  CREATED  CONTINUANT. 
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0024 

0025 


0026 

0027 

0020 

0029 


0O30 

0031 

0033 

0034 


0035 

0036 

0O37 

0030 


0039 


0040 

004 

0042 


HACTFG'2>  «  MXTNSA 

C  _ 

C  PLACE  LOCATION  OF  NEK  PAGE  INTO  OUT -CORE  DIRECTORY 
OUTDIR'OUTLOC)  *  HACTPG<2> 

C 

C  SET  UP  AVAILABLE  SPACE  AND  HEADER 
SNGIBK  >  .TRITE. 

CTRIPT  ■  LSTVPGM) 

CTRI  1  ■  CTRIPT  ♦  HDRSZE 

CALL  LVSETP 
C 

C  PLACE  EMPTY  PAGE  ON  DISK 
LENGTH  ■  PAGBDR 
Bl’FlOC  •  CTRIPT  ♦  1 
ERRNVM  *  23 
MSA  -  HACTPG'2> 

CALL  LVPAGV 

C  _ 

C  UPDATE  REGISTERS 
40  CfTRPAG *  1 )  >  HACTPGM) 

CURE AG  <  2 )  >  0 
CURPAG'3>  -  HACTPG < 2 > 

CVRPAGM)  «  LSTVPGM) 

C 

C  PAGE  HAS  BEEN  PLACED  IN  "LEAST  VALUED  BIOCK 
C  UPDATE  IN-CORE  DIRECTORY 
CALL  LVRPLC 

C  PROTECT  THIS  PAGE  FROM  BEING  TAKEN  OUT  OE  CORE  BEFORE  IT  IS  USED 
FIGSPC'CTRI PT»HDRFI G)  ■  NOTUSP  .OR.  NFWCON 
RETURN 
END 
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c 

c 

c 


0001 

0002 

0003 


0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 


0014 

0015 

0016 

0017 


0018 


0019 


0321 


0023 


0024 


SUBROUTINE  LVNCON 
IMPLICIT  INTEGER U-Z> 

LOGICAL* I  SNGI  BK , SETUP , NXTRAN , IN  1 STR , IN2STR , FP ISTR , FP2STR , DL1STR. 

1  DL2STR , DUMPFI  , CURENT ,  IN2TMP,FP2TMP,DL2TMP,FINPFI  , 

2  DLBTFI  NSRTFI 

COMMON  /1VREGS/  CURPAGM)  ,REQPAG*4>  .LSTVPGM)  .MSARET, 

1  HREQPG , NYTMSA , BACTPG  < 2) ,READCT,USECNT,DIRPAG, 

2  DIRCNT,0UTL0C,0UTDIR(256)  ,RWBUF<  1 ) 

COMMON  /1VMASK/  NVR 1TE , NOTUSP , NEWCON , FI  GMSK , MASKSF , MASKPF 
COMMON  /I VCRNT/  REGASP .CTRIPT ,CTRI 1 .LEAST V , NTFREE, FREE, DREGSP, 

1  MSA,  PAGIOC.  CURENT 

COMMON  /LVBUFR/  PAGSZE ,  NVCH AN ,  OICHAN ,  CMPANP ,  PAGHDR ,  BUFSZE ,  DIRSZF , 
1  INCORE, HDRSZF,MSADIR,SUFSZE,BIKSZE,DIRBIK,PAGBD4 

COMMON  /I.VBDVI./  THSMSA ,  REGAS ,  PAGENO ,  CONTNO ,  I NSPEL , 

1  USECT , HORFIG , READV1  ,01  DNPfl , DNOPEH , NROWB , DROVE 

COMMON  /IVSVIT/  SETUP, SNGIBK, NXTRAN, IN1STR, IN2STR,FP1STR,FP2STR, 

1  DL ISTR , DL2STR , I N2TMP , FP2TMP , DL2TMP , DUMPFI , 

2  FINPFI  ,DLETFI  ,  NSRTFI 

COMMON  /IVPRAM/  BUR OC , LENGTH , I ERR, ERRNPM, BINARY, BCP, MOPE, PAGES, 

1  LUN 

COMMON  /I VVTR 1 /  NOPSPC'l) 

1  /IVVTR2/  LSTSPCM) 

2  /IVVTR3/  LNKSPC  <  1 ) 

3  /I  VVTR4/  FI  GSPC  <  t ) 

DIMENSION  CONI  ST  (64) 

DATA  CONI  ST  /64*e/ 

C 

C  THIS  ROUTINE  PLACES  AN  UNUSED  CONTINUANT  OF  AN  ESTABLISHED  PAGE 
C  INTO  THE  BUFFER.  IF  REQ(P.C)  VAS  NOT  INITIALIZED  AT  THE  BEGINNING 
C  OF  THE  PROGRAM,  A  CONTINUANT  IS  CREATED  ANP  PLACED  ON  DISK. 

C  REGISTERS,  IN-CORE,  ANP  OUT -CORE  DIRECTORIES  ARE  UPDATED. 

C 

C  OONISTO  IS  A  LIST  OF  HIGHEST  ACTIVE  CONTINUANTS  FOR  EACH  PAGE 
D  PAUSE  ’IN  LVNCQN ’ 

PAGE  =  REQPAGU) 

HICONT  =  CONI  ST (PAGE) 

REQPAG<2)  =  HICONT  ♦  1 
CONI  ST (PAGE)  -  RE0PAG(2) 

C 

C  BRING  IN  OinrCORE  DIRECTORY 
CALL  LVMSA ( CONNUM ) 

C 

C  OPEN  A  PAGE-BI OCK  IN  THE  BITTER 

IF'LEASTV  ,EQ.  NTFREE)  CALL  LVOPEN 
C 

C  ARE  ANY  PREINITIALIZED  CONTINUANTS  STILL  AVAILABI E  7 
IF«MSARET  .GT.  0)  GO  TO  >0 
C 

C***  NEW  CONTINUANT  MUST  BE  ADDED  TO  THE  DISK  IMMEDIATELY  FOI LOVING  THE 
C  LAST  CREATED  CONTINUANT. 

MSA  *  N  XT  MSA 
C 

C  PUCE  LOCATION  OF  NEV  PAGE  INTO  OUT -CORE  DIRECTORY 
OUTDIR'OUTLOC  ♦  I)  *  MSA 
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0025 

9926 

9027 

9929 


9929 

9939 

9931 

0932 

9933 


0034 

0935 

9936 

9937 
0939 
0039 


UO'fU 

0041 

0042 

0043 


4 

WrH 


0045 

0046 

0047 


C 

C  SET  UP  AVAILABLE  SPACE  AND  HEADER 
SNGLBK  *  .TRUE. 

CTRIPT  ■  LSTVPGM) 

CTRL  1  ■  CTRIPT  ♦  HDRSZE 

CALL  LVSETP 
C 

C  PLACE  EMPTY  PAGE  ON  DISK 
LENGTH  *  PAGHDR 
BVFI.OC  ■  CTRIPT  ♦  1 
ERRNVM  •  25 
CALL  LVPAGV 
GO  TO  40 
C 

C  REQ<P,0)  VAS  CREATED  AT  THE  BEGINNING  OF  THE  PROGRAM 
C  READ  REQCP.0)  INTO  CORE 
10  MSA  *  MS  A  RET 

LENGTH  «  PAGHDR 
BVFLOC  *  LSTVPG<4)  ♦  1 
ERRNVM  >  26 
CHAN  «  NWCHAN 
CALL  LVPAGR'CHAN) 

C 

C  UPDATE  REGISTERS 
40  CVRPAGH)  *  REQPAGi  1) 

CVRPAG'2)  «  REQPAG<2> 

CVRPAG'3)  •  MSA 
CT'RPAGM)  «  LSTVPGM) 

C 

C  PAGE  HAS  BEEN  PLACED  IN  LEAST  VALUED  BIOCK 
C  UPDATE  IN-CORE  DIRECTORY 
CALL  LVRPLC 

C 

C  PROTECT  THIS  PAGE  FROM  BEING  TAKEN  OUT  OF  CORE  BEFORE  IT  IS  USED 
FIGSPC<CTRI  PT+BDRFLG)  «  NOTUSP  .OR.  NEVCON 
RETURN 
END 
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C 

C 

C 

SUBROUTINE  LVEXCB 
IMPLICIT  INTEGER *A-Z) 

LOGICAL* 1  CERENT  _ 

COMMON  /I.VARGS/  IFUNC,  IARG,  IPOS,  ITYP,  IVAL,NVAL,NSKIP ,  ITESTR, 

1  INCI UD,  INPXON,  IVALS*  10) ,  ITYP1  <  10)  .SRCSUF, 

2  LNKSUF , SNKSUF ,  INSTYP 

COMMON  /I.VREGS/  CURPAGU)  ,REQPAG<4>  ,LSTVPG'4)  .MSARET, 

1  HREQPG,NXTMSA,HACTPG<2) ,READCT,USECNT,DIRPAG, 

2  DIRCOT,0UTL0C,0UTDIRf2S6>  .RVBUFM) 

COMMON  /IVCRNT/  REGASP ,  CTRI PT ,  CTRI  1 ,  LEASTV ,  NT  FREE ,  FREE ,  DREGSP , 

1  MSA , PAGI OC , CURENT 

COMMON  /LVBUFR/  PAGSZE ,  NWCBAN ,  01  CBAN,CMPANP,PAGBDR,BUFSZE,DIRSZE, 
1  INCORE, HDRSZE,MSADIR,SUFSZE,BLKSZE,DIRBIK,PAGBD4 

COMMON  /I.VPRAM/  BUFI OC,  LENGTH,  I  ERR,  ERRNUM,  BINARY,  BCD,  MOPE,  PAGES, 

1  LUN 

COMMON  /I.VBDVI./  THSMSA, REGAS, PAGENO.CONTNO,  INSPEL, 

1  USECT ,  HDRFIG ,  READV1 ,  OIDNPH ,  DNOPEH ,  NROVB ,  DROVE 

COMMON  /I  WTR1/  NOPSPCfl) 

1  /I.WTR2/  LSTSPC  <  1 ) 

2  /I.WTR3/  LNKSPCM) 

3  /1.VVTR4/  FIGSPCH) 

C 

C  THIS  ROUTINE  BRINGS  THE  REQUESTED  (PAGE.CONT)  INTO  CORE  IF  NECESSARY 
C  AND  UPDATES  THE  IN-CORE  DIRECTORY  AND  "CURRENT"  REGISTER 
C  TO  REQUESTED  <P,C> 

C  FAILURE  RETURN  IF  MSARET  LT  0 
C 

C  IS  REQ(P.C)  IN  CORE  7 
D  PAUSE  'IN  LVEXCH’ 

P  TYPE  1 

D1  FORMAT ( ’  REQ(l)  RE0(2) ’) 

D  TYPE  2,REQPAGU),REQPAGf2) 

02  FORMAT (2<2X, 14) ) 

MSARET  >  10000 
CALL  LVPRCT 

IF  <  PAGI OC  .GT.  0)  RETURN 
C 

C  BRING  REQ<P,C)  INTO  CORE  IF  IT  EXISTS 
C  LOCATE  REQ(P.C)  ON  DISK 
CALL  LVMSA(CONT) 

C  DOES  REQ(P,C)  EXIST  ? 

IFIMSARET  .IT.  0)  GO  TO  100  _ 

C  MAKE  A  PAGE-BIOCK  AVAILABLE  IN  THE  GIRS  BUFFER 
CALL  LVOPEN 

C  BRING  REQ<P,C)  INTO  I  EAST -VALUED  PAGE-BI  OCK 
ERRNUM  *  10 
LENGTH  «  PAGHDR 
MSA  •  MSARET 
BPF1.0C  *  LSTVPGM)  ♦  1 
CHAN  *  NWCBAN 
CALL  LVPAGR'CHAN) 

C  UPDATE  "CURRENT  PAGE"  REGISTERS 
CTRI  PT  *  BUFI.OC  -  1 
CTRI  1  *  CTRI  PT  ♦  RDRSZE 
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0040 


PAGI.OC  »  CTRI.PT 

CURPAG  < 1 )  «  LSTSPC < CTRL PT  ♦  PAGENO) 
CURPAG <2>  *  LSTSPC  <■  CTR1  PT  ♦  CONTNO) 
CURPAG<3>  *  MSA 
CURPAG <4>  «  CTR1PT 
CURENT  «  .TRUE. 

REGASP  *  NODSPC < CTR1 PT  ♦  REGAS) 

C  UPDATE  IN-CORE  DIRECTORY 
CALL  LVRPLC 
C  UPDATE  <P,C)  HEADER 

READCT  *  READCT  ♦  1 
FI  GSPC  <  CTRI  PT  ♦  READVI )  «  READCT 
LNKSPC ' CTRI PT ♦ USECT )  *  0 
100  LEASTV  *  NT  FREE 
RETURN 
END 


■V 


SUBROUTINE  LVPRCT 
IMPLICIT  INTEGER*A-Z) 

LOGICAL*  1  CURENT 

COMMON  /IVARGS/  1FUNC, IARG, IPOS, ITYP, IVAL,NVAL,NSKIP , ITESTR, 

1  I NCI  UP, INPXON , IVALS* 19) , ITYP I < 10) .SRCSUF, 

2  LNKSUF , SNKSUF , I NST YP 

COMMON  /LVREGS/  CURPAG <  4) , REQPAG  *  4) , LSTVPG  *  4  > , MSARET , 

1  HREQPG , NXTMSA , HACTPG  * 2 ) , READCT , USECNT , D1RPAG , 

2  DIRCNT,OUTLOC,OUTDIR*256>  ,RVBUF*1> 

COMMON  /LVCRNT/  REGASP,  CTRIPT,  CTR1  1 , LEASTV , NTFREE , FREE , DREGSP , 

1  MSA , PACT  OC , CURENT  _ 

COMMON  /IVBUFR/  PAGSZE ,  NVCH  AN ,  01  CHAN ,  CMP ANP ,  P AGBDR ,  BUFSZE ,  D I RSZE , 

1  I NCORE , HDRSZE , MS AD I R , SUFSZE , BI KSZE , D I RBI  K , PAGHD4 

COMMON  AM HDVL/  THSMSA, REGAS, P AGENO, CONTNO,  1NSPEL, 

I  USECT , HDRFI  G, READVI  , 01DNPH , DNOPEH , NROVH , DROVB 

COMMON  /IVPRAM/  BUFLOC, LENGTH,  I  ERR,  ERRNUM,  BINARY,  BCP,  MOPE,  PAGES, 

1  LUN 

COMMON  /1VSTAK/  CUR1.EV ,  NUMVAR ,  STACK  <1 ) 

COMMON  /LVVTR1/  NOPSPCM) 

1  /I  WTR2/  LSTSPCM) 

2  /I.VVTR3/  LNKSPCni 

3  /I  VVTR4/  FI  GSPCU) 

DIMENSION  TEMP (4) 

C 

C  THIS  ROUTINE  SEARCHES  THE  DIRECTORY  TO  SEE  IF  THE  REQUESTED  PAGE- 
C  CONTINUANT  < REQPAG)  IS  IN  CORE.  THE  DIRECTORY  IS  A  PAGE-BI OCK  VHICH 
C  STAYS  IN  CORE.  IT  IS  AT  THE  FIRST  CONTROL  POINT  (CTRIPT  *  0).  DIRSZE 
C  IS  THE  DIRECTORY  PAGE  SIZE.  FOR  EACH  PAGE-CONTINUANT  THAT  IS  IN 
C  CORE,  A  TRIPLE  IS  STORED.  THE  SOURCE  NOPE  IS  THE  CONTINUANT* 1 ,  THE 
C  LINK  (OR  KEY)  IS  THE  PAGE  NUMBER ,  ANP  THE  VALUE  IS  THE  LOCATION 
C  PRECEEDING  THE  FIRST  VORP  OF  THAT  PAGE  IN  CORE  <  =  CTRIPT). 

C 

C  SUCCESS  —  UPDATE  CURPAG  ANP  CTRIPT,  CURENT  =  .TRUE. 

C  FAILURE  —  PAGI OC  *  -1 
C 

C***  DOES  THE  REQUESTED  PAGE-CONTINUANT  «  THE  CURRENT  PAGE-CONTINUANT  ? 

C 

D  PAUSE  ’IN  LVPRCT' 

IF((REQPAG( 1)  .EQ.  CURPAG< 1 ) )  .ANP.  <REQPAG<2>  .EQ.  CURPAG(2>)> 

1  GO  TO  40 

IF* INCORE  .EQ.  1)  GO  TO  98 
GO  TO  50 
C 

40  CTRIPT  =  CURPAG  *4) 

CTRL  1  =  CTRI  PT  ♦  HDRSZE 
PACTOC  *  CTRIPT 
MSA  *  CURPAG* 3) 

REGASP  =  NOPSPC  *  CTRL  PT  ♦  REGAS) 

CURENT  =  .TRUE. 

RETURN 

C 

C 

C***  TEMPORARILY  STORE  SYSTEM  VARIABI ES  FOR  THE  SEARCH 
C 
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CALL  LVSTAC 
OIDCPT  =  CTRIPT 


0025  50 

0026 

C 

C  RESET  SYSTEM  VARIABLES  FOR  THE  DIRECTORY 
C 

0027  CTRIPT  =  -HDRSZE 

002?  CTRL  1  =  0 

0029  PAGSZE  =  DIRSZE 

0030  IARG  =  REQPAG<2) ♦ 1 

0031  IFl'NC  =  REQPAGM) 

0032  SRCSUF  =  IARG 

0033  LNKSVF  =  IFl'NC 

C 

0034  CALL  LVFIND 

0035  PAGIOC  =  ITESTR* 1 VAL 

C 

C  RESTORE  SYSTEM  VAR  I  ABIES 
0036  CALL  LVPOP 

0037  IF'PAGIOC  .IT.  0)  GO  TO  99 

C 

C  PAGE-CONT INFANT  HAS  BEEN  FOUND  IN  THE  DIRECTORY. 
0039  CTRIPT  =  PAGIOC 

0040  CTRI  1  =  CTR1 PT  ♦  HDRSZE 

0041  MSA  ■  NODSPC' CTRIPT  ♦  THSMSA) 

C 

C  UPDATE  CURPAG 

0042  Cl'RPAG  <1>  =  REQPAG  < 1 ) 

0043  CURPAG < 2)  =  REQPAG ^ 2) 

0044  CURPAG < 3)  =  MSA 

0045  CURPAG < 4)  =  CTRIPT 

0046  CWENT  =  -TRUE. 

0047  REGASP  =  NOPSPC< CTRIPT  ♦  REGAS) 

0048  RETURN 

C 

C  FAILURE 

0049  98  PAGIOC  =  -1 

0050  99  CURENT  =  .FALSE. 

0051  CTRI  PT  *  OI  DCPT 

0052  CTRI  1  =  CTRI  PT  ♦  HDRSZE 

0053  RETURN 

0054  END 
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C 

C 

C 

SUBROUTINE  LVMSA (CONNUM) 

IMPLICIT  INTEGER (A-Z) 

COMMON  /1VREGS/  CURPAG<4> ,REQPAG<4) ,LSTVPG<4) .MSARET, 

1  HREQPG , NXTMSA . B ACTPG  < 2  > , READCT , USECNT , D I RPAG , 

2  DIRCNT .OUTLOC, OUTD1R (256) , RVBliF <  1 ) 

COMMON  /IVBl'FR/  PAGSZE ,  NWCHAN ,  01  CHAN ,  CMP ANP ,  PAGHDR ,  BUFSZE ,  D IRSZE , 
1  INCORE , HDRSZE , MSADIR, SUFSZE , BI KSZE , DIRBI  K , PAGBD4 

C 

C  THIS  ROUTINE  BRINGS  INTO  OUTD1RO  THE  CORRECT  OUTCORE  DIRECTORY  BLOCK 
C  IF  NECESSARY.  UPDATES  D I RPAG  ANP  DIRCNT. 

C 

C  SUCCESS: 

C  RETURNS  MSA  OF  [REQPAGf 1 > , REQPAG'2) 1  IN  MSARET. 

C  SETS  CONNUM  =  RFQPAG<2>. 

C  FAILURE  OR  NEW  CONTINUANT: 

C  MSARET  =  -1 

C  CONNUM  =  HIGHEST  EXISTING  CONTINUANT  NUMBER  OF  REQPAGU) 

C  UNDEFINED  PAGE: 

C  CONNUM  =  -1 

C 

D  PAUSE  ’IN  LVMSA ' 

PAGE  =  REQPAGU) 

CONT  =  REQPAG<2> 

ERRNUM  =  11 
PUMP  =  0 

IF > (PAGE  .GT.  64)  .OR.  (CONT  .GT.  63))  CALL  LVERP< DUMP) 

C  COMPUTE  OUTCORE  DIRECTORY  BLOCK 
NEVPIR  =  (PAGE  -  1 ) /4  +  1 
DIRCNT  =  PAGE  -  4»<NEVPIR  -  1) 

C  BRING  IN  DIRECTORY  BIOCK  IF  NECESSARY 
IF<NEWP1R  ,EQ.  D1RPAG)  GO  TO  100 
D I RPAG  =  NEWPIR 
CHAN  =  NWCHAN 
CALL  LVPRRP(CHAN) 

C 

C  DETERMINE  IF  ANY,  'SPECIFIC' ,  OR  NEW  CONTINUANT  IS  REQUESTED 
100  I F < CONT  ♦  1)  200  ,  300  ,  210 

C 

C  ANY  —  SET  TO  ZERO 
200  CONT  =  0 
C 

C  "SPECIFIC 

210  OUTLOC  =  1  ♦  64»<DIRCNT-1>  ♦  CONT 
MSARET  =  OUTD l R  < OUTLOC ) 

P  TYPE  9 

D9  FORMAT ( '  REQPAG< 1) ,REQPAG<2> .DIRPAG, DIRCNT, CONT, OITIOC, MSARET’ ) 

D  TYPE  10,  REQPAGU)  ,REQPAG<2>, DIRPAG, DIRCNT, CONT, OUTLOC, MSARET 

DIO  FORMAT ( 1 X , 8 ( 2X , I 5 ) ) 

CONNUM  =  CONT 
I F < CONT  .IT.  0)  GO  TO  220 
IF'MSARET  .GT.  0)  GO  TO  220 
CONT  =  CONT  -  1 
GO  TO  210 
C  FAILURE  ? 
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220  I F < CONT  .NE.  REQPAG<2>>  NS A RET  =  -1 

RETURN 
C 

C  "NEW  CONTINUANT  (PAGE  MUST  BE  DEFINED,  CONT  NOT  YET  INITIALIZED) 
300  NSARET  *  -1 
CONNUN  =  -1 
310  CONT  =  CONT  ♦  1 

IF <CONT  .GE.  64)  STOP  ’REQUEST  EXCEEDS  ALLOWABIE  NUMBER  OF 
1  CONTINUANTS' 

OITI.OC  =  1  ♦  64#  (DIRCNT- 1  >  ♦  CONT 
NSARET  =  OUTDIR(OUTLOC) 

IF  (NSARET  .IE.  0)  RETURN 
CONNUN  =  CONT 
GO  TO  310 
END 
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C 

C 

C 

SUBR01TINE  LVOPEN 
IMPLICIT  INTEGER'A-Z) 

RFAL*4  CORF 

COMMON  /IVREGS/  CTRPAGM)  ,RFQPAG<4)  .LSTVPG '4 >  ,  MSARET, 

1  HREQPG . NXTMS A , H ACTPG  ' 2  > , RE ADCT , USECNT , D I RP AG . 

2  DIRCNT ,OVTLOC,OUTDIR<  256) , RWBl'F 1 1 ) 

COMMON  /IVMASK/  MWR ITE ,  NOTUSP ,  NEWCON ,  FI  GMSK .  MASKSF .  MASKPF 
COMMON  /IVCRNT/  REGASP, CTR1  PT .CTRL  1 , LEAST V.NTFRFE, FREE, DREGSP, 

1  MSA  ,PAG1  OC  .Cl'RFNT 

COMMON  /IVBUFR/  PAGSZE ,  NVCHAN ,  01  CHAN ,  CMPANP ,  P AGBDR ,  BUFSZF ,  D I RSZF , 
1  I NCORE , HDRSZE . MSAD I R , SUFSZE , BI  KSZE , D I RBI  K , PAGHD4 

COMMON  /I  VBDV1  /  THSMSA ,  REGAS ,  PAGENO ,  CONTNO ,  INSPEL , 

1  USECT , HDRFI G . READVI  , 01 DNPH , DNOPEH , NROWB , DROWH 

COMMON  /IVPRAM/  Bl'FI  OC,  LENGTH ,  I  ERR ,  ERRNl'M  .BINARY ,  BCP,  MOPE,  PAGES, 

1  LUN 

COMMON  /1VRPN/  RUNT YP, CORE 

COMMON  /1VVTR1/  NOPSPCM) 

1  /IVVTR2/  LSTSPC<  1) 

2  /I  VVTR3/  LNKSPC*  1 ) 

3  /I VVTR4/  FIGSPCf  1) 

C 

C  THE  PURPOSF  OF  THIS  ROUTINE  IS  TO  MAKE  A  PAGE-BIOCK  AVAILABIE 
C  IN  WRKSPC . 

C 

C  IF  LEASTV  =  FREE,  THEN  LSTVPG  CONTAINS  THE  CONTROI  POINT  FOR  AN 
C  AVAILABIE  PAGE-BIOCK 

C 

D  PAUSE  ’IN  LVOPEN’ 

I F < LEASTV  .EQ.  FREE)  RFTURN 
C 

C  PREPARE  TOTAL  USAGE  COUNT  FOR  LVALUE 
CALL  LVSUM 


C 

C  ROITINE  LVALUE  WILL  RETURN  THE  DISK  ANP  IN-CORE  LOCATIONS  IN  LSTVPGO 
C  OF  A  PAGE.  CONT  WHICH  IT  HAS  DETERMINED  TO  BE  OF  LEAST  IMMEDIATE  USE 
C  TO  THE  SYSTEM. 

C 

0015  CALL  LVALUE 

C 

C  TEST  WRITE-BIT  OF  LEAST  VALUED  CONTINUANT.  THE  WRITE-BIT  INDICATES 
C  WHETHER  OR  NOT  A  PAGE  HAS  BEEN  CHANGED  SINCF  IT  WAS  REAP  INTO 
C  MEMORY 
C 

0016  FIGIOC  =  LSTVPG<4>  ♦  HDRFI G 

0017  IF<  (MWRITE  .AND.  FI  GSPC 'FIGIOC)  >  .EQ.  0)  RFTURN 

C 

C  WRITE  LEAST  VALUED  PAGE  TO  DISK 
C 

C  ZERO  OUT  FLAGS 


0019 

FI  GSPC' FIGIOC)  =  0 

0020 

MSA  =  LSTVPG  <3> 

0021 

LENGTH  *  PAGWDR 

0022 

ERRNUM  =  27 

0023 

BUFLOC  =  LSTVPG '4)  ♦ 

0024 

CALL  LVPAGV 

0025 

RETURN 

0026 

END 
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C 

C 

C 

SUBROUTINE  LVSUM 
IMPLICIT  INTEGFR'A-Z) 

COMMON  /1VREGS/  CURPAG'4)  .REOPAGM)  ,LSTVPG»4>,MSARET, 

1  HREQPG,NXTMSA,HACTPG<2) .READCT .USECNT ,DIRP AG, 

2  DIRCNT,OUTLOC,OUTDIRf2S6) .RVBUF* 1) 

COMMON  /IVMASR/  MVR ITE , NOTUSP , NFVCON , FLGNSK , MASNSF , MASKPF 
COMMON  /I.VCRNT/  REGASP,  CTRI PT.CTRI  1 .LEAST V.NTFR EE, FREE, DREGSP, 

1  MSA ,  PACT  OC ,  CURENT 

COMMON  /IVBUFR/  PAGSZE , NNCHAN , OICHAN , CMP AND , PAGHDR . BUFSZE , D IRSZE , 
1  INCORE,  HDRSZE ,  MSADIR .  SITSZE ,  BI  KSZE.DIRBIK ,  PAGHD4 

COMMON  /I.VBDVI /  THSMSA, REGAS, PAGENO.CONTNO,  INSPEL, 

1  USECT ,  HDRFI  G ,  RFADVI  ,  01 DNPH ,  DNOPEH ,  NROVB ,  DROVB 

COMMON  /IWTR1/  NOPSPCH) 

1  /I  VVTR2/  LSTSPCM) 

2  /IWTR3/  LN1CSPCU) 

3  /I  WTR4/  FIGSPCU) 

C 

C  THIS  ROUTINE  IS  CALLED  WHENEVER  A  CONTINUANT  IS  CREATED  OR  READ 
C  INTO  MEMORY.  ITS  RESULTS  ARE  USED  BY  THE  LVALUE  ROUTINE  FOR  THE 
C  ’USAGE’  PARAMETER. 

D  PAUSE  ’ IN  LVSUM’ 

USECNT  *  0 
MBIAS  *  DIRSZE 

C  RECOMPUTE  USE  COUNT  OF  ALL  INCORE  CONTINUANTS 
DO  10  I  =  1, INCORE 

USECNT  -  USECNT  ♦  LNKSPC  OCBIAS  ♦  USECT) 

MBIAS  •  MBIAS  ♦  PAGBDR 
10  CONTINUE 

IF * USECNT  .EQ.  0)  USECNT  »  1 

RETURN 

END 
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c 

c 

c 

0001  SUBROUTINE  LVALUE 

0002  IMPLICIT  INTEGER(A-Z) 

0003  LOGICAL* I  CERENT 

0004  REAL* 4  A, B,C,D,BOTOMl , BOTTOM, CORE, ORDER, TOP, TOP l.TTLUSE, USAGE, 

I  USAGE! .VALUE, VALUE1 .WRITE, SPACE, CAPACY 

0005  COMMON  /I.VREGS/  CURPAGM)  , REQPAG<4) , LSTVPGM)  ,MSARET, 

1  HREQPG , NXTNSA , HACTPG 1 2 ) ,READCT,USECNT,DIRPAG, 

2  DIRCNT , OUTLOC , OUTD I R < 256 )  ,RVBUF(  1) 

0006  COMMON  /IVSVIT/  SETUP ,  SNGIBK ,  NXTRAN , IN1STR, IN2STR,FP1STR.FP2STR, 

1  DL1STR,DL2STR,  IN2TMP,PP2TMP,DL2TMP,DUMPFI  ., 

2  FINPF1  .DLETFI  .NSRTFI 

0007  COMMON  /IVMASK/  MWR ITE , NOTUSP , NEWCON , FI  OMSK . MASKSF , MASKPF 

0008  COMMON  /IVCRNT/  REGASP,  CTRI.PT ,  CTRL  1 , LEAST V,NTFREE, FREE, DREGSP, 

1  MSA.PAGIOC.CURENT 

0009  COMMON  /IVBUFR/  PAGSZE,NVCHAN,01CHAN,CMPANP,PAGBDR,BUFSZE,D1RSZE, 

I  INCORE , HDRSZE , MSAD I R , SUFSZE , BI  KSZE , DIRBI X , PAGBD4 

0010  COMMON  /I  VHDVI /  THSMSA , REGAS . PAGENO , CONTNO , INSPEL, 

1  USECT , HDRFI G , READVI , 01 DNPH , DNOPEH , NROVW , DROVE 

0011  COMMON  /I.VPRAM/  BUFIOC, LENGTH,  IERR.ERRNUM, BINARY, BCP, MOPE, PAGES, 

1  LUN 

0012  COMMON  /IVRUN/  RUNTYP.CORE 

0013  COMMON  /I  VVTR1/  NOPSPC  < 1 > 

1  /I  VVTR2/  LSTSPCU) 

2  /I  VVTR3/  LNKSPC  <  1 ) 

3  /IVVTR4/  FI  GSPC  <  1) 

0014  DATA  A, B,C, D/15. 0,20.0, 15.0,50.0/ 

C 

C  THIS  ROUTINE  WILL  DETERMINE  VB1CH  CONTINUANT  IS  LEAST  NEEDED  IN 
C  CORE.  THE  ALGORITHM  USED  IS  A  MODIFICATION  OF  THE  INTERACTIVE  DATA 
C  MANAGER  OPTIMIZATION  ALGORITHM  WRITTEN  BY  MEL  HAAS,  COPE  1833  . 

C  THE  VALUES  RANGE  FROM  0  (LEAST  NEEDED  CONTINUANT)  TO  100  (MOST 
C  USEFUL  CONTINUANT). 

D  PAUSE  ’IN  LVALUE’ 

0015  JBIAS  =  DIRSZE 

0016  MBIAS  =  JBIAS 

0017  IF( INCORE  .EQ.  1>  GO  TO  20 

0019  LEASTV  =  NT FREE 

0020  VALUE  =  100000.0 

0021  DO  10  I  =  1,  INCORE 

0022  IF((FIGSPC< JBIAS  ♦  HDRFI G)  .ANP.  NOTUSP)  .NE.  0)  GO  TO  9 

D  PAUSE  '  IN  LVALUE  LOOP’ 

C 

C  CALCULATE  ORDER  VALUE 
0024  INPOS  =  FIGSPC( JBIAS  ♦  READVI) 

0025  TOP  =  READCT- INPOS 

0026  BOTTOM  =  READCT 

0027  ORDER  =  1 .0  -  (TOP/BOTTOM) 

C 

C  CALCULATE  WRITE  VALUE 
0028  WRITE  =  0.0 

0029  IF((FIGSPC( JBIAS  ♦  HDRFI G>  .ANP.  MVRITE)  .NE.  0>  WRITE  =  CORE 

C 

C  CALCULATE  USAGE  VALUE 
0031  TTLUSF  =  USECNT 
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0032  USAGE  1  =  LNKSPC' JBIAS  ♦  USECT) 

0033  USAGE  =  USAGE 1/TTLUSE 

C 

C  CALCULATE  SPACE  VALUE 

0034  TOPI  =  PAGSZE  -  LNKSPC' JBIAS  ♦  INSDEL) 

003S  BOTOX  1  =  PAGSZE 

0036  CAPACY  =  TOPI /BOTOX  1 

0037  GO  TO  ( 1 ,2f3> ,  RUNTYP 

C 

C  CREATION  TYPE  RUN 

0030  1  SPACE  =  -4 . 0*CAPACY* 'CAPACY- 1.0) 

0039  GO  TO  5 

C 

C  PROPUCTION  TYPE  RUN 
0040  2  SPACE  *  1.0 

0041  IF'  CAPACY  .IT.  .125)  SPACE  =  8.0*CAPACY 

0043  IF'  CAPACY  .GE.  .750)  SPACE  =  0.0 

0045  IF' (CAPACY  .GT.  . 375) . ANP. 'CAPACY  .IT.  .75)) 

1  SPACF  =  2.6-'8.0/3.0>*CAPACY 
0047  GO  TO  5 

C 

C  QUERY  TYPE  RUN 

0048  3  SPACF  =  1.0-CAPACY 

C 

C***  CALCULATE  THE  IN-CORE  VALUE  OF  THIS  CONTINUANT 

C 

0049  5  VALUE 1  =  A*ORPERtB«USA.GF*C#SPACF+D»VRITE 

D  TYPE  1 1 1 , ORDER. USAGE, SPACE, WRITE, VALUE1 .VALUE 
Dill  FORMAT <1X,6'F10.3,2X)) 

0050  IF'VALl’El  .GE.  VALUE)  GO  TO  9 

0052  LEASTV  =  FRFE 

0053  Value  =  value  1 

0054  MBIAS  *  JBIAS 

0055  9  JBIAS  =  JBIAS+PAGHDR 

0056  10  CONTINUE 

C 

C  UPDATE  ’I  EAST  VALUED’  REGISTER  LSTVPG  UNI  ESS  NONE  WAS  FOUND 
0057  IF 'LEASTV  .EQ.  FREE)  GO- TO  20 

0059  TYPE  15 

006O  15  FORMAT'/,’  •••  ERROR  IN  LVALUE  •••’,/) 

C 

C  PREVENT  POSSIBIE  RECURSION 
0061  IF'DUMPFl  .EQ.  TRUE)  STOP 

0063  I  ERR  *  0 

0064  ERRNUM  =  28 

0065  MODE  =  BCD 

0066  PAGES  =  -1 

0067  DUMP  »  0 

0068  CALL  LV DUMP (DUMP) 

0069  STOP 

C 

007O  20  LSTVPG' 1)  =  LSTSPC'MBIAS  ♦  PAGFNO) 

0071  LSTVPG' 2)  =  LSTSPC'MBIAS  *  CONTNO) 

0072  LSTVPG '3)  =  NODSPC'MBIAS  ♦  THSMSA ) 

0073  LSTVPG'4)  =  MBIAS 

C  SET  LEASTV  FOR  INCORF  -  1 
0074  LEASTV  =  FREE 

0075  RETURN 

0076  END 
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c 

c 

c 

0801  SUBROUTINE  LVRPLC 

0002  IMPLICIT  INTEGER'A-Z) 

0003  LOGICAL* 1  CVRENT , REORG , FULL , RPLACE 

0004  COMMON  /LVARGS/  IFUNC, IARG, IPOS, 1TYP, IVAL.NVAL.NSKIP, ITESTR. 

1  INC!  UD,  INPXON,  IVALS*  10) ,  ITYP1  ( 10)  .SRCSl'F, 

2  LNKSUF.SNXSUF, INSTYP 

0005  COMMON  A VREGS/  CURPAG'4) ,REQPAG<4) ,1STVPG<4) .MSARET, 

1  HREQPG , NXT MSA , HACTPG <  2 ) , READCT , USECNT , D I RPAG , 

2  DIRCNT,0UTL0C,0irrDlR(2S6>  .RVBUFM) 

0006  COMMON  A VCRNT/  REGASP.CTRI  FT.CTRL 1 , LEASTV , NTFREE , FREE , DREGSP , 

1  MSA , PAGI OC . CURENT 

0007  COMMON  /IVBUFR/  PAGSZE , NWCBAN ,  OICB  AN , CMP ANP . PAGHDR , BUFSZE , D I RSZF , 

1  INCORE,HDRSZE,MSADIR,SUFSZE,BI  KSZF.DIRBI  K , PAGHD4 

0008  COMMON  A  VPEL1  NUMRET 

0009  COMMON  /IVINS)/  REORG , FULL , RPUCE 

0010  COMMON  /I  WTR1/  NOPSPCU) 

1  A VVTR2/  LSTSPC  < 1 ) 

2  A  WTR3/  LNKSPC  <  1 ) 

3  A  VVTR4/  FIGSPCd) 


C 

C  THIS  ROUTINE  UPDATES  THE  DIRECTORY  BY  DELETING  LSTVPG  (THE  LEAST 
C  VALUED  BLOCK  IN  CORE)  PROM  IT,  AND  THEN  INSERTING  CURPAG  (THE  NEV 
C  CURRENT  PAGE)  INTO  IT. 

C 

C***  SAVE  SYSTEM  VAR  I  ABIES 

C 

D  PAUSE  'IN  LVRPLC 

0011  CALL  L VST AC 

C 

C***  DELETE  OLD  PAGE, CONTI NT ANT,  LSTVPG,  FROM  DIRECTORY 
C 

0012  CTRIPT  *  -HDRSZE 

0013  CTRL  1  *  0 

0014  PAGSZE  »  DIRSZE 

0015  IFfLSTVPGU)  .EQ.  0)  GO  TO  5 

0017  IARG  *  LSTVPG* 2)  ♦  1 

0018  IFUNC  *  LSTVPG* 1 ) 

0019  SRCSl'F  =  IARG 

0020  LNKSl'F  «  IFUNC 

0021  CALL  LVFINP 

0022  ITYP  >  1 

0023  IPOS  »  1 

0024  INPXON  *  0 

0025  REORG  =  .FALSE. 

0026  Nl'MRET  *  0 

0027  TEMP  »  REGASP 

0028  REGASP  «  DREGSP 

0029  CALL  LVPLET 

C 

C***  PLACE  NEV  PAGE-CONTINUANT  INTO  DIRECTORY 
C 

0030  5  IARG  *  CURPAG *2)  ♦  1 

0031  IFUNC  *  CURPAG  < 1 ) 

0032  SRCSl'F  «  IARG 
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0033  LNKSUF  .  IFVNC 

0034  CALL  LVFINP 

0035  INSTYP  «  1 

0036  XV  AL  >  1 

0037  INPXON  •  0 

0030  1TYP1 <  1)  «  1 

0039  IVALS'l)  *  CURPAG'4) 

0040  SNXSVP  *  CVU>AG<4) 

0041  CALL  LVNSRT 

C 

C***  RESTORE  SYSTEM  VAR  I  ABI  ES 
C 

0042  DREGS?  •  REGASP 

0043  REGASP  *  TEMP 

0044  CALL  LVPOP 

0045  CTR1PT  •  CHRP  AG  M) 

0046  CTR1  1  *  CTR1.PT  ♦  HDRSZE 

C 

C  PAGE-BIOCK  BAS  BEEN  FILLED  AMP  IS  NO  LONGER  AVAILABLE 
0047  LEASTV  •  NT FREE 

0048  RETURN 

0049  ENP 
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c 

c 
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0025 
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0028 
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0030 

0031 

0032 


SUBROUTINE  LVSTAC 
IMPLICIT  INTEGER *A-Z) 

DIMENSION  STORE! 1) ,ST0R<6> 

COMMON  /1VARGS/  1FUNC, IARC, IPOS, ITYP, IVAL,NVAL,NSKIP, ITESTR, 

1  INC1UD,  INPXON,  IVALS* 10)  ,  ITYP1  <  10)  .SRCSUF, 

2  LNKSUF.SNKSUF,  INSTYP 

COMMON  /IVREGS/  CVRPAG*4)  ,NEQPAG<4>  ,LSTVPG*4)  , MSARFT, 

1  HREQPG , NXTMSA , HACTPG  < 2 ) ,R£ADCT,USECNT,DIRPAG, 

2  DIRCNT,0UTL0C,0UTDIR*2S6> , RVBUF <  1) 

COMMON  /IVBUFR/  P  AGSZE ,  NVCH AN ,  01  CHAN ,  CMP  AND ,  PAGHDR ,  BUFSZE ,  D IRSZE , 

1  I NCORE ,  HDRSZE .  NSADIR,  SUFSZE ,  BI KSZE ,  D I  RBI  K ,  PAG0D4 

COMMON  A  VPRAM/  Bl'FI  OC ,  LENGTH ,  I  ERR .  ERRNVN ,  B I  NARY ,  BCD ,  MODE ,  PAGES , 

1  LUN 

COMMON  /IVADDR/  I  ADD ,  TH  IS,  LSTHED  ,LOC.  LAST ,  LASTLC 
COMMON  /IVSTAK/  Cl'RI  EV ,  NUMVAR ,  STACK  <  140) 

EQU I  VALENCE  <  I  FUNC .  STORE  <  1 )  > 

EQU I VALENCE  < IADD.STOR* 1 > > 

DATA  NUMVAR ,  MAXLEV ,  CURI.EV/34 ,3,0/ 

C 

C  THIS  R01TINF  SAVES  UP  TO  3  SETS  OF  A  V  ARCS/  VAR!  ABIES  ANP  REQUEST  REGISTERS 
D  PAUSE  ’IN  LVSTAC’ 

CUR!  EV  =  CURIEV  ♦  1 
IE'CURI EV  -GT.  MAXLEV)  GO  TO  99 
ISTLOC  =  (CURI  EV-  i  >  •  * Nl’MVAR  ♦  11)  ♦  1 
DO  10  I  <  1 , NUMVAR 
STACK* I+ISTLOC)  *  STORE(l) 

10  CONTINUE 

DO  20  I  =  1,4 

STACK  *  NUMVAR* ISTLOC* I )  =  REQPAG* I ) 

20  CONTINUE 

DO  30  I  =  1,6 

STACK* NUMVAR* ISTLOC* I *4)  *  STOR*I> 

30  CONTINUE 

STACK 'NUMVAR* ISTLOC* ! 1)  *  PAGSZE 
RETURN 
C 

C  FAILURE  -  ATTEMPT  TO  STACK  TOO  MANY  SETS  OF  VARIAB1 ES 
99  ERRNUM  =  21 
DUMP  =  1 

CALL  LVERR'DUMP) 

RETURN 

END 
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C 

C 

C 

SUBROUT 1 NF  LVPOP 
IMPLICIT  INTEGER*A-Z> 

DIMENSION  STOMP *  1  >  , STOR * 6 ) 

COMMON  /IVARGS/  IFUNC, IARG, IPOS, ITYP, I VAL , NVAL.NSK IP , ITESTR, 

1  1NC1UD,  INPXON  ,  1VALS*  10)  ,  ITYPI* 10)  .SRCSUF, 

2  LNKS1T ,  SNKSVF ,  I NSTYP 

COMMON  /IVRFCS/  CURPAG'4)  ,REQPAG*4> , LST VPO <  4  > , MSARFT , 

1  HREQPG,NXTMSA,HACTPG<2> .READCT.USECNT.DIRPAG. 

2  DIRCNT  .OITLOC  .OVTDIR*  256)  .RWBUFM) 

COMMON  /IVBUFR/  P  AGSZE ,  NWCH  AN ,  01  CHAN ,  CMP  AND ,  PAGBDR ,  BFFSZE ,  D I RSZF , 
1  I NCORF , HDRSZF , MSADIR. ST FSZF , Bt  KSZE .D1RBIK.P AGHD4 

COMMON  /IVPRAM/  BUP1  OC ,  LENGTH .  I  ERR ,  ERRNl'N ,  BINARY ,  BCD,  MODE.  PAGES . 

1  LUN 

COMMON  /1VADDR/  1ADD ,TH IS, LSTHED ,LOC,LAST  ,  LASTLC 
COMMON  /I  VST  AM/  CURl  EV ,  N DRV A R. STACK  <  1 ) 

EQU I  VALENCE  ( 1  FUNC .  STORE  *  1  n 
EQU I VALENCE  ( I  ADD , STOR  < 1 ) > 

C 

C  THIS  ROUTINE  RETURNS  UP  TO  3  SFTS  OF  /IVaRGS/  VARI ABIES 
D  PAUSE  IN  LVPOP’ 

CVRIEV  »  CUR1EV  -  1 
IF'CURIEV  IT.  0)  00  TO  99 
ISTLOC  *  <CDRIEV>«*NUNVAR*I  1)*1 
DO  10  I  >  1  ,  Nl'MVAR 
STORE*  I)  *  STACK*  I* ISTLOC) 

10  CONTINUE 

DO  20  I  *  1,4 

RFQPAG* 1 )  *  STACK* I* ISTLOC»NUMVAR) 

20  CONTINUE 

DO  30  I  -  1,6 

STORM)  -  STACK*  1*  ISTLOC*  NUMVAR  *4) 

30  CO  NT  I  HUE 

P AGSZE  *  STACK*  NUMVAR* ISTLOC* 1 1 > 

RETURN 

C 

C  FAILURE  -  ATTEMPT  TO  RETURN  TOO  MANY  SETS  OF  VAR  I ABIES 
99  ERRNVM  *  22 
DUMP  -  1 

CALL  LVERR  <  DUMP ) 

RETURN 

END 
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c 

c 

0001  SEBROITINE  LVREOR  <  REQCON  > 

0002  IMPLICIT  INTEGER*  A-7.) 

0003  LOGICAL*!  SNGI  BK .SFTEP , NXTRAN ,  IN1STR,  IN2STR,FP1STR,FP2STR,DLISTR, 

1  DL2STR ,  DEMPFI  ,  CTRENT  ,  F 1  NPFI  .  DLETFI  ,  NSRTFI  ,  FP 1  TUP , 

2  D1.2TMP .  IN2TMP ,  FP2TMP  .INSIDE.  Fl'LL , RL-ORG .  LSTCON ,  RPLACE , 

3  FINISH 

0004  COMMON  /I  VARGS/  IFENC,  IARG.  IPOS.  ITYP,  I  VAI..NVAL,  NSKI P  ,  ITESTR, 

!  I  NCI  ED,  1NPX0N.  1VA1.S*  10)  .  ITYP1  (  10)  .SRCSEF. 

2  LNKSEF.SNKSl'F.  INSTYP 

0005  COMMON  /IVRFGS/  CERPAG*  -<  •  ,  RE’QPAG<4)  ,  LSTVPG'  4)  ,  MSARFT, 

1  HRFQPG , NX TMSA ,  H ACT PG  <  2 )  , RFADCT ,  ESECNT .DIRPAG, 

2  DIRCNT , Ol'TLOC . Ol'TDIR*  256)  .RVBl'F*  1) 

0006  COMMON  /1VMASK/  MWR ITE, NOTESP . NFUCON , FI GMSK . MASKSF. MASKPF 

0007  COMMON  /l  VF1  AG/  FI  OMSK  .  FI  1 MSK  ,  FI  2MSK .  FI  3MSK  .  FI  4MSK .  FI  SMSK .  FI  G67 . 

1  FI  AGP, FI  AGO, FI  AG  10, FI  AG1  1  ,F1  AGI2.F1  AG13.F1  AG14, 

2  FI  AG  1 5 

0008  COMMON  /I  VCRNT/  RFGASP  ,  CTRI  PT  ,  CTRI  1  .  LEASTV  .  NTFRFE ,  FREE ,  DRFGSP . 

1  MSA  .  PAGI  OC .  Cl'RFNT 

0009  COMMON  /IVBI'FR/  PAGS7.E  ,  NWCHAN , 01  CHAN . CMPANP , PAGHDR .  BI'FSZF ,  DIRSZF . 

1  1 NCORF ,  HDRS7.F  .  MSADIR.  SIFSZE ,  B1  KSZF ,  D I  RBI  K .  PAGHD4 

0010  COMMON  /I VHUVI /  THSMSA , RFGAS . P AGFNO . CONTNO . INSPFL , 

I  ESE(T  ,  HDRF1  G .  RFADVI  .  01  DNPH ,  DNOPEH ,  NROWH .  DROWI) 

0011  COMMON  /IVSWIT/  SFTFP , SNGI  BK . NXTRAN . IN ISTR . I N2STR . FP 1STR . FP2STR . 

1  DL  I STR  .  DL2STR .  I N2TMP  ,  FP2TMP  ,  DL2TMP ,  DEMPFI  . 

2  FINPFI  .PLKTFI  .NSRTH 

0012  COMMON  /IVTKAM/  BIE’I  OC  .  LENGTH  .  I  ERR  .  ERRNFM,  BINARY  ,  BCP,  MOPE,  PAGES 

1  LIT 

0013  COMMON  /lVAI'DR/  I  ADD  .THIS.  l.STHKl) .  1.0*' .  LAST  ,  LASTLO 

1)014  C  OMMON  IVFNP/  COl'NT  ,  ABSPOS .  LSTCON 

00 1 5  COMMON  /I  V  I  NS  1 /  RFORG . FELL , NPLACF 

0O16  COMMON  /IVVTRI.  NOPSPC*  1  > 

1  /I  VVTR2/  LSTSPC 1  1  > 

2  /I  VVTK3/  I.NKSPC  <  1  ) 

3  /l  VVTR4/  FIGSPCM) 

C 

D  PAI'SF  ’IN  I.VRE'OR  ‘ 

C 

C  RFORG  MOVE'S  THE  LIST  FROM  ITS  PRFSFNT  LOCATION  cCONTINI’ANT  *  RE0PAG'2> 
C  TO  CONT  INI  ANT  RFQCON. 

0017  ERRNFM  62 

00  18  PIMP  =  0 

0019  I E 1  RECK  ON  FO.  CVRP  AG 1 2  >  *  CALL  I.VFRR  <  DUMP ) 

C 

C  WAS  THE  ORIGINAL  LIST  PLACED  ON  CERPAG' 2>  AS  A  RFSI'LT  OF  A  SPECIFIC 
C  RFQEKNT  V  IE  SO.  ERROR 

0021  IFmFI  GSP(  m  TRI  1  ‘THIS)  .ANP.  FIAGI2)  .  FQ.  0)  GO  TO  20 

C 

i  TYPE  OIT  ERROR.  BET  PRO)  FED  ANYWAY 
0023  TYPE  10.  SRCSI  E  .  LNKSI'E  .  IVAl.S'  I  i  .RE'QPAG*  I  )  , RFQCON . (TRPAG<  2 ) 

0024  10  FORMAT/.'  **•  ERROR  ••« .  THE  FOI  LOWING  TRIPLE  '.3*06.2X), 

1  '  OF  PAGE  13.'  WILE  BE  PLACED  ON  CONT INFANT  ’.13./. 

2  '  ORIGIN*!.  LIST  WAS  EOENP  ON  CONT  I NEANT  '.I3> 

(' 

0025  20  01  IK 'ON  =  CERPAG*  2  * 


I 


OIDCPT  =  CTRIPT 
01  DCP  1  =  CTRI  1 
C 

C  SPECIAL  HANDLING  IF  Bl'FFER  HOI  DS  ONI  Y  ONE  CONT INl'ANT 
IF* INCORE  FQ.  1)  GO  TO  30 
C 

C  KFEP  CO NT INFANT  WITH  01  D  LIST  IN  CORF 

FI  GSPC '  CTRI  PT-HDRFIG)  =  FI  GSPC  < CTRI  PT ♦HDRF1  G  i  OR 
C 

C  LOCATE  NFW  CONT INFANT 
RFQPAG<2>  =  RFQCON 
CALL  LVFXCH 
30  NFVCPT  =  CTRI  PT 
NEWCPl  =  CTRI  1 
C 

C  SAVF  THE  VALVE  TO  BF  INSERTED 
CALL  LVSTAC 
C 

IF'LSTHF.D  .GT.  0)  GO  TO  SO 


NOTFSP 


KVAL  =  1 
lVALS'D  =  LSTSPC'OI  DCP  1  »TH IS* 

ITYPHU  =  FI  GSPC  <01  DCP  l  *TH  IS)  .AND.  FI  067 

IF' INCORF  GT .  1 >  GO  TO  45 

RFOPAG ' 2 »  =  RFOCON 

CALL  LVFXCD 

CALI.  LVFISD 

CALL  LVN  RT 

NODSPC  H.  1  Rl  PT  ♦  RFGAS )  =  RFGASP 

FI  GSPC « CTRI  PT  ♦DDRFl  0 >  *Fl  GSPC  < CTRI  PT  ♦  HDRFI  G  > 


1WHITK 


(*049 

GO  TO  76* 

C  RVI 

OOSO 

50 

01  Dl.OC  =  LSTHED 

005: 

KVAL  =  0 

HW32 

NVA1.  --  0 

0053 

IF' I. SCORE 

FO.  1 '  GO  TO  63 

0055 

60 

KVAI  =  KVAI 

♦  1 

0056 

IVAI.S'  I  >  -- 

NODSPC '0!  DCP  1  *01  DLOC* 

005 

ITYP1 • 1 ,  = 

FI  GSPC *01  DTP  1*01  IHXV>  AND.  FI 

005V 

CAI.l.  l.VF  INI' 

0O59 

I  AI.I.  lvnsrt 

0060 

olHLOC  *  I.STSPC  1 01  DCP  1*01  Dl.OC  > 

006 ! 

IF'  'FI  GSPC- 

01  DCP  1 ‘01  Dl.OC*  AND.  F10NSK*  . 

0063 

<*)  TO  70 

C  FOR 

RVI  '  1 M  OKI 

=  I-  SWAP  Oil)  -W  NFW  COST  INI' 

(  RE 

INSERTIN'.  IT 

TO  TEN  \  .'LI  E’S  aT  A  TIRE: 

0064 

63 

FINISH  E 

AI.SE 

0065 

65 

RFOP AO  •  '  ’  -■ 

til  IK 'ON 

OOf, 6 

(All  LVIVH 

iH>  ,  1 

66. 

NV  A 1  =  NV  * : 

. 

llOf  V 

KVAI  LV'I 

•  1 

OOf.* 

IV  *I.S'  KVAI 

=  Nf'HSPC  0)1  IRPI-OI  DLOC' 

00?l* 

1  INI’  1  ■  KVAI 

=  FI  6SP(  '01  DCP  !  0*1  III  IK  AND 

00  1 

"1  HI  OC  1.' 

■TSPi  "U  DC  P  1  *01  DLOC  ' 

me: 

IE  >  El  ospi  • 

01  D*  P  1  *01  Dl.OC'  AND  ElONSk' 

0074 

II  'KVAI  '.E 

10-  141  TO  67 

0'  GO  TO  60 


MM  SD  = 


0076 
0076 
0079 
0000 
0001 
0002 
0003 
000  4 
0005 
0006 
000S 
0009 
0090 


0091 

0092 

0093 

0094 

0096 

0097 

0098 

0099 


0100 


0101 


0102 

0103 

0104 

0106 

0107 

0108 

0109 


01  10 
01  1  1 
01  12 


IF'. NOT.  FINISH)  GO  TO  66 
67  RFOPAG'2)  =  RFQCON 
CALL  LVEXCH 
CALL  LVFINP 
NVAL  *  KVAL 
KVAL  =  0 
CALL  LVNSRT 

NOPSPC'CTRl PT+REGAS)  =  REGASP 

FI  GSPC'CTRI  PT*HDRFIG)  =FI  GSPC'CTRI  PT+HDRFI G)  .OR.  NWRITE 
IF' .NOT.  FINISH)  GO  TO  65 

KV* I  »  NVAL 
REQPAG'2>  =  OIDCON 
CALL  LVEXCH 
C 

C  DELETE  01  D  LIST 
70  1NPX0N  =  0 

CTRIPT  =  OIDCPT 
CTRI  1  «  01  DCP I 

IF'INCORF  GT.  D  GO  TO  75 
REOP  AG' 2)  =  OIDCON 
CALL  LVEXCH 
75  CALL  LVFINP 
CALL  LVPLET 
C 

C  UPDATE  HEADER 

C  01 D  CONTINUANT  HAS  BEEN  MODIFIED 

IT  GSPC'CTRI  PT«HDRF1  G)  =F1  GSPC'CTRI  PT  *HDRF1  G>  .AND.  .NOT.  NOTL’SP 
1  OR.  NVR1TE 

C 

C  RESET  CONTINUANT  USAGE  RATIO 

LNKSPC < 01  DCFT ♦ I NSPEL )  *  LNKSPC ' 01 DCPT ♦ I NSPEL )  -  KVAL 
C 

C  INSERT  NEV  VALUE 
CALL  LVPOP 
REQPAG' 2>  =  REQCON 
IF'INCORF  FQ.  D  CAU.  LVEXCH 
CTRIPT  *  NFHCPT 
CTRI  1  =  NFWCP  1 

CALL  LVFINP 
CALL  LVNSRT 
C 

C  UPDATE  HEADER 

C  RFSFT  CONTINUANT  USAGE  RATIO 

LNKSPC 'NFVCPT* I NSPEL)  »  LNKSPC 'NFVCPT* I NSPEL)  «  KVAL 

RETURN 

ENP 
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A 


0001 

0002 

0003 


0004 


0005 


0006 

0007 


0008 
0009 
0010 
001  1 


0012 

0013 

0014 

001S 


0016 

0017 

0018 

0019 

0020 

0022 

0024 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 


C 

C 

C 

SUBROUTINE  LVINCI 
IMPLICIT  INTEGER <A-7.) 

LOGICAL*  1  SNGl  BX, SETUP .NXTRAN ,  IN ISTR ,  IN2STR . FP 1STR . FP2STR ,DI.  1STR . 

1  DL2STK , Dl'MPFI  .Cl'RFNT ,  EINPFI  .DLETFl  , NSRTFI  , 

2  DL2TMP . I N2TMP . EP2TMP , REORG . FULL , RPLACE 

COMMON  /IVARGS/  IFUNC, 1ARG, IPOS, ITYP, IVAL.NVAL, NSXIP, ITESTR, 

1  I  NCI  UD,  INPXON .  IVAI.S*  10)  ,  ITYP1  ( 10)  .SRCSUF. 

2  LNKSUF .  SNKSI'F ,  I NSTYP 

COMMON  /IVRFGS/  CURPAG*  4)  , RFQPAG*  4>  , LSTVPG<4)  , MSARFT , 

1  HREQPG ,  NXTMSA. .  HACTPG  <  2  >  ,  READCT ,  USECNT ,  D I RPAG , 

2  DIRCNT  ,01'TLOC  .OVTDIR  <256)  ,RVBUF<  1) 

COMMON  /IVMASK/  MUR  I TE , NOTUSP , NEWCON . FI GMSX . MASXSF . MASXPF 
COMMON  /I  VFI  AG/  FI  0MSX  .  FI  1 MSX ,  FI  2MSX  .  FI  3MSX  .  FI  4MSK  .  FI  5MSX .  FI  G67 . 

1  FI  AG8  , FI  AG9 , FI  AGIO, FI  AG  1  1  ,  FI  AGI2.FI  AG13.FI  AG14, 

2  FI  AG  15 

COMMON  /1VCRNT/  REGASP ,CTR1 PT ,CTR1 1 ,LEASTV .NTFRFE, FREE, DRFGSP. 

I  MSA , PAGI  OC , CURFNT 

COMMON  /I VBVFR/  PAGSZE , NWCHAN , 01  CHAN . CMP ANP , PAGHDR , BUFSZF , DIRSZE , 
I  I NCORE ,  HDRSZF  ,  MSAD I R .  Sl'FSZE ,  BI  KSZE ,  D I  RBI  X  ,  PAGHD4 

COMMON  /I  VHDVI  /  THSMSA  ,  REGAS  .  PAGEN'O.CONTNO,  INSPEL , 

1  USECT , HDRFI  G . RFADVI  , 01 DNPH , DNOPEH , NROWH , DROWH 

COMMON  /I  VSWIT/  SETUP  , SNGI  BX  .  NXTRAN  ,  IN1STR,  IN2STR,EPlSTR.FP2STR, 

1  DL 1STR  ,  DL2STR  .  I N2TMP ,  EP2TMP  ,  DL21  MP  ,  Dl'IlPFl  , 

2  EINPFI  ,  DLETFl  ,  NSRTFI 

COMMON  /IVPHAM/  BUFI  OC , LENGTH , I  ERR , ERRNUM, BINARY, BCP, MOPE, PAGES . 

1  Ll'N 

COMMON  /IVADUR/  I  ADD  .THIS.  LSTHEI) ,  LOC .  LAST  .  LASTLC 
COMMON  /I  V I  NS  1 /  REORG . FULL , RPLACE 
COMMON  /I  VVTR  1  /  NOPSPCU) 

1  /I  VVTR2/  LSTSPC'l) 

2  /I  VVTR3/  LNXSPC  <  1 ) 

3  /l  WTR4/  FI  GSPC  *  1 ) 

C 

C  THIS  ROUTINE  SFARCHES  THE  LIST  TO  FINP  THE  VALUE  IN  INCIUD.  IF  IT 
C  IS  FOl'NP ,  ITS  POSITION  URT  THE  TOP  OF  THE  LIST  IS  RETURNED 
C 

C  DOES  THE  LIST  EXIST  ? 

D  PAUSE  1  IN  LV I  NCI  4 
IPOS  =  1 
RFOPAG'2)  =  -2 
J  =  0 

CALL  LVFPEX ( J . J , J , J , 1 > 

IF*  ITESTR  .IT.  0)  GO  TO  31 
IF'IVA.L  EO-  INCIUD)  GO  TO  25 
IF'LSTHED  .IT.  0)  GO  TO  3! 

C  MV1  FOUND 

JVAL  =  I VAL 
XSKIP  =  NSXIP 
NSXIP  =  0 
INDEX  =  0 
INPXAD  =  0 

xn*Nc  =  0 
XARG  =  0 
SAVCON  =  0 
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KPOS  =  0 

10  KPOS  =  KPOS*! 

IPOS  =  KPOS 

CALL  LVFPEXl  INDEX,  INPXAD,KFUNC,KARG,SAVCON> 

IF <  ITESTR  .IT.  0)  GO  TO  30 
IF < IVAL  .NE.  INCIUD)  GO  TO  10 
C 

C  EXIT  FROM  LOOP,  INCIUD  =  1,  SUCCESS 

C  INCIUD  -  -1,  FAILURE 

C  EXCEPT  FOR  IPOS,  OUTPUT  MUST  APPEAR  AS  IF  IT  WAS  FROM  LVF1NP 


0042 

30 

IVAL  =  JVAL 

0043 

NSKIP  =  KSKIP 

0044 

LOC  =  LSTHED 

0045 

25 

INCIUD  =  ITESTR 

0046 

ITESTR  =  l 

0047 

C 

RETURN 

C  SVI 

FAILURE  RETURN 

0048 

31 

INCIUD  =  -1 

0049 

RETURN 

0050 

END 

J 


0001 

0002 

0003 


0004 


0005 


0006 

0007 


0008 

0009 

0010 

0011 


0012 

0013 

0014 

0015 

0016 


0017 


0019 

0021 

0022 

0023 

0024 

0025 

0026 


0027 


C 

C 

C 

SUBROUTINE  LVOVFR 
IMPLICIT  INTEGER <A-Z) 

LOG I CAL* 1  SNGI BK, SETUP .NXTRAN, IN1STR, IN2STR,FPlSTR, FP2STR . DL 1 STR 

1  DL2STR , DUMPF1  ,CURENT,FINPFI  .DLETFI  .NSRTFI  , FP1TMP, 

2  DL2TMP,  IN2TMP.FP2TMP,  INSIDE,  FI 'LL ,  REORG ,  LSTCON .  RPLACE , 

3  FINISH 

COMMON  /IVARGS/  IFUNC, IARG, IPOS, ITYP, 1VAL,NVAL,NSKIP, 1TESTR, 

1  I NCI UD, INPXON, IVALSi 10) . ITYP l (10) .SRCSUF, 

2  LNKSUF.SNKSUF, INSTYP 

COMMON  /IVREGS/  CURPAG<4) ,RFQPAG'4) ,LSTVPG<4) .MSARET, 

1  HREQPG,NXTMSA,HACTPG<2) ,READCT,USECNT,DIRPAG, 

2  D 1 RCNT , OUTLOC , OUTD I R ( 256 ) ,RWBUF  <  1) 

COMMON  /IVMASK/  MWRITE .NOTUSD.NEWCON , FI GMSK , MASKSF.MASKPF 
COMMON  /I  VF1  AG/  FI  OMSK ,  FI  1MSK,  FI  2M3K.FI  3MSK,  FI  4MSK.F1  5MSK.FI  067, 

1  FI  AG8.FI  AG9, FI  AGIO, FI  AG1 1. FI  AGI2, FI  AG13.F1  AG14, 

2  FI  AG  IS 

COMMON  /IVCRNT/  REGASP, CTRI  PT.CTRI  1 , LEASTV , NTFREE , FREE, DREGS? , 

1  MSA , P  AGI  OC , CURENT 

COMMON  /IVBUFR/  PAGSZE , NVCHAN , 01  CHAN , CMPANP , PAGBDR , BUFSZE , D I RSZE 
1  INCORE, HDRSZE , MSAD I R , SUFSZE , BI KSZE , D I RBI  K , PAGHD4 

COMMON  /I VHDVI /  THSMSA, REGAS, PAGENO, CONTNO, INSPEL, 

1  USECT , HDRF1 G , READV1  ,01 DNPH , DNOPEH, NROVH ,DROWB 

COMMON  /IVSVIT/  SETUP, SNGI BK, NXTRAN. IN1STR, IN2STR,FPISTR,FP2STR, 

1  DL 1 STR , DL2STR , 1N2TMP, FP2TMP , DL2TMP , DUMPFI  , 

2  FINPFI  .DLETFI  ,NSRTFI 

COMMON  /IVPRAM/  BUFIOC , LENGTH , I ERR, ERRNUM, BINARY, BCP, MOPE, PAGES, 
1  LUN 

COMMON  /IVADDR/  1ADD,THIS,LSTHED,L0C,LAST,LASTLC 
COMMON  /IVFNP/  COUNT , ABSPOS , LSTCON 

COMMON  /I VI NS 1/  REORG, FULL, RPLACE 
COMMON  /IVVTR1/  NOPSPCU) 

1  /IVVTR2/  LSTSPC  <  1 ) 

2  /IVVTR3/  LNKSPC  <  1 ) 

3  /IVVTR4/  FI  GSPC  (  1 ) 

C 

D  PAUSE  ’IN  LVOVER’ 

C 

C  THIS  ROUTINE  HANDLES  CONTINUANT  OVERFLOW  ON  INDEXED  INSERTION 
C 

C  IF  FUNCTION  DOES  NOT  EXIST,  RETURN  AND  PLACE  ON  NEXT  CONTINUANT 
IF<  ITESTR  .IT.  0)  RETURN 

C 

C  PICK  UP  LAST  VALUE  ON  LIST, 

I F « LSTHED  GT.  0)  GO  TO  50 

C  SVI 

NVAL  =  2 

IVALS<2>  =  IVALSd) 

ITYP 1(2)  =  ITYP 1(1) 

TMPVAL  =  LSTSPC  <  CTRI  1*TH  IS) 

TMPTYP  =  FI  GSPC 'CTRI  1*THIS)  .ANP.  R  G67 
GO  TO  100 

C  MV  I 

C  SAVE  THE  VALUE  TO  BE  INSERTED 
50  CALL  LVSTAC 
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0028 

0029 


TMPVAL  =  NOPSPC'CTRI  1«I  ASTLC) 

TMPTYP  =  FI GSPOCTRI  l  ♦I  ASTLC)  . AND.  FIG67 


0030 

0031 

0032 


0033 

0034 


0036 

0037 


0038 

0039 

0040 

0041 

0042 


P 


C 

C  DELETE  LAST  VALUE, 

100  INPXON  *  1 
IPOS  =  -1 
CALL  LVPLET 
C 

C  RESET  CONTINUANT  USAGE  RATIO 

LNKSPC <  CTRI  PT»  I NSPEL)  *  LNKSPC'CTRI  PT* INSPEL)  -I 
I F •  LSTHED  .IT.  0)  GO  TO  150 
C 

C  INSERT  ORIGINAL  VALUE, 

CALL  LVPOP 
CALL  LVNSRT 
C 

C  INSERT  LAST  VALUE  ON  NEXT  CONTINUANT 
150  IVALSH)  =  TMPVAL 
ITYP1 ( l  >  =  TMPTYP 
INPXON  =  0 
RETURN 
ENP 


1 


il 
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0001 

0002 

0003 


0004 


0005 

0006 

0007 

0008 

0009 


0010 

0011 

0012 


0013 


0014 


0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 


C 

C 

C 

SUBROUTINE  LVPUNP(DUMP) 

IMPLICIT  INTEGER (A-Z) 

LOG  I  CAL*  1  CITRENT ,  SETUP .  SNGI  BK ,  NXTRAN ,  1 N 1 STR ,  I N2STR  ,FP1STR,  FP2STR , 

1  DL1STR.DL2STR, IN2TMP,FP2TMP,DL2TMP,DUMPF1  , 

2  FINPF1  ,DLETFI  .NSRTFI 

COMMON  /LVREGS/  CURPAG<4) ,REQPAG(4) ,LSTVPG<4) ,MSARET, 

1  HREQPG , NXTMSA , H ACT PG ( 2  > , READCT , USECNT , D I RPAG , 

2  D 1 RCNT , OUTLOC . OUTD I R  < 256 ) , RWBUF < 1 ) 

COMMON  /l VMASK/  MWR I TE , NOTUSP , NEVCON , FI  GMSK , MASKSF , MASKPF 
COMMON  /IVCRNT/  REGASP ,CTRI  PT .CTRL  1 ,LEASTV .NTFREE, FREE, DREGSP, 

1  MSA ,  PAGI OC ,  CURENT 

COMMON  /1VBUFR/  PAGSZE , NWCUAN , 01  CHAN , CMP AND , PAGBDR , BUFSZE , D1RSZF , 

1  INCORE, HDRSZF , MSAD I R , SVFSZE , BI KSZE , D I RBI  K , PAGBD4 

COMMON  A VHDV1 /  THSMSA , REGAS , P AGENO , CONTNO , I NSPEL , 

1  USECT ,  HDRFI G ,  READVI  ,  01 11NPH ,  DNOPEH ,  NROWB ,  DROWH 

COMMON  A VSW1T/  SETUP , SNGI  BK .NXTRAN , IN1STR, IN2STR,FPISTR,FP2STR. 

1  DL1STR.DL2STR, IN2TMP , FP2TMP , DL2TMP ,DUMPFI  , 

2  F1NPFI  ,DLETFI  ,  NSRTFI 

COMMON  /I  VPR  AM/  BUFIOC, LENGTH ,  1  ERR , ERRNUM , B I N ARY , BCP , MOPE , PAGES , 

1  LUN 

COMMON  A VVSEQ/  ISEQSZ , ISOPOS,LASTSO,SEQSPC( 1 ) 

COMMON  A  VVTR 1/  NOPSPCH) 

1  A  WTR2/  LSTSPCM) 

2  A  WTR3/  LNKSPC  <  1 ) 

3  A  VVTR4/  FIGSPC<1> 

EQU I VALENCE ( LUN . CHAN ) 

C 

C  THIS  ROUTINE  HAS  TWO  MOPES  OF  OPERATION: 

C  A)  BCP  DUMP  -  OUTPUTS  SYSTEM  VARIABLES  ANP  INTERNAL  STRUCTURE  OF  GIRS 
C  PAGES  AS  A  DEBUGGING  AID 
C  B)  BINARY  DUMP 

C  COPIES  ALL  (MODIFIED)  IN-CORE  CONTINUANTS  TO  THE  NEW  DISK  FILE. 

C  A  CALL  TO  LVCIOS  SAVES  THE  SYSTEM  PARAMETERS. 

C 

C  PAGES  =  -1,  DUMP  IN-CORE  PAGE-BIOCKS 
C  =0,  DUMP  ALL  PAGES  V/  ALL  CONTS 
C  *  N .  DUMP  PAGE  N 
C 

C  IS  THIS  A  BINARY  OR  BCP  DUMP  ? 

D  PAUSE  ’IN  LVPUMP < ) ’ 

IF (MOPE  .FQ.  BINARY)  GO  TO  100 
C 

C***  BCP 

C  LOGICAL  UNIT  NUMBER  SHOULD  BE  DEFINED  IN  A  CALL  TO  ASSIGN 
C  WRITE  HEADERS 

WRITE (LUN, 10) 

10  FORMAT!/,’  GIRS  MEMORY  DUMP  (IN  OCTAL)’,//) 

ERRNUM  =  -1 
DUMPFI  *  .TRUE. 

CALL  LVERR  < DUMP ) 

WRITE (LUN, 21 ) 

21  FORMAT (///) 

WRITE (LUN, 21 ) 

C  WRITE  IN-CORE  DIRECTORY 
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I 


6024 

WRITE (LUN.3S) 

0025 

35 

FORMAT ( '  IN-CORE  DIRECTORY’,//) 

6026 

WRITE  (LUN.  45) 

0027 

45 

FORMAT ( IX  ’  COUNTERS  KEY (PAGE)  CONTINUANT  "1 

1  FI  GSPC’ ,//) 

0026 

NBIAS  =  -HDRSZE 

0020 

NVMBI K  *  1 

0030 

CALL  LVVRIT(NBIAS.NUMBLK) 

C  TYPE  OF  DUMP  ? 

0031 

IF'PAGES  .GE.  0)  GO  TO  50 

C  WRITE  01T  ONLY  THOSE  CONTINUANTS  THAT  ARE  IN  CORE 

0033 

NBIAS  *  DIRSZE 

0034 

NUMBI.K  ■=  INCORE 

0035 

CALL  LVWRIT(NBIAS,NUMBLK) 

0036 

DUMP  FI  =  .FALSE. 

0037 

r* 

RETURN 

C  TEST  TO  WRITE  OIT  EITHER  A  SINGLE  PAGE  AND  ALL 

OF  ITS  ( 

C  OR 

ALL  PAGES 

0036 

50 

NPAGE  =  PAGES 

0039 

HIPAGE  =  HACTPG  <  1  > 

0040 

IFiHREQPG  .GT.  HIPAGE)  HIPAGF  «  HREQPG 

0042 

IF < PAGES. NF.0)  GO  TO  60 

0044 

55 

PAGES  =  PAGES* 1 

0045 

60 

REQPAG  < 1 )  =  PAGES 

0046 

REQPAG'2)  =  -1 

0047 

65 

REQPAG<2)  =  REQPAG < 2) ♦ I 

C  ATTEMPT  TO  LOCATE  OR  BRING  IN  PAGE.  CONT 

0046 

CALL  LVEXCH 

C  IS  REQ(P.C)  IN  CORE  ? 

0049 

IF<PAGIOC  .GT.  0)  GO  TO  66 

C  ANY 

MORE  CONTINUANTS  TO  THIS  PAGE 

0051 

IF<MSARET  .IE.  0)  GO  TO  70 

C  WRITE  OUT  PAGE 

0053 

66 

NBIAS  =  CTRIPT 

0054 

NUMBI K  =  1 

0055 

CALL  LVWRIT (NBIAS, NUMBI K) 

0056 

GO  TO  65 

C  WRITE  SINGLE  PAGE  ONIY  ? 

0057 

70 

IF<NPAGE  .NE.  0)  GO  TO  80 

C  IS  THIS  THE  HIGHEST  ACTIVE  PAGE  ? 

0059 

IF«PAGES  .IT.  HIPAGE)  GO  TO  55 

0061 

80 

DUMPFI  =  .FALSE. 

0062 

r> 

RETURN 

C  •••BINARY  WRITE 

r 

0063 

100 

CTRIPT  =  DIRSZE 

0064 

CTRI  1  *  CTRI PT  ♦  HDRSZE 

0065 

DO  150  I  *  1,  INCORE 

C  COPY  TO  DISK  IF  CONTINUANT  HAS  BEEN  MODIFIED  IN  CORE 

0066 

IF<  (FI  GSPC^CTRLPT  ♦  HDRFLG)  .AND.  MWRITE) 

•  EQ.  0) 

0066 

FI  GSPC < CTRL  PT  ♦  HDRF1.G)  *  0 

0069 

LENGTH  =  PAGHDR 

0070 

BVFI.OC  =  CTRI  PT  ♦  1 

0071 

MSA  *  NODSPC(CTRIPT  ♦  THSMSA) 

0072 

CALL  LVPAGW 

0073 

145 

CTRIPT  =  CTRIPT  ♦  PAGHDR 

0074 

CTRI  1  =  CTRI  PT  ♦  HDRSZE 

0075 

150 

CONTINUE 

0076 

CALL  LVCIOS 

0077 

RETURN 

0076 

END 

IOC-1  LNKSPC 
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0028 

0021 
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SUBROUTINE  LVVRIT  < NBI  AS,  NVMBI K) 

IMPLICIT  INTEGER* A-Z) 

COMMON  /IVCRNT/  REGASP  ,CTRI  PT  ,CTRI  1  .LEAST V t NTFREE, FREE, DREGSP, 

1  MSA , PAGI OC , CURENT 

COMMON  /I VBUFR/  PAGSZE ,  NVCH AN ,  01  CHAN ,  CMPANP ,  P  AGBDR ,  BUFSZE ,  D I RSZE , 

1  INCORE,HDRSZE,MSADIR,SUFSZE,BI  KSZE ,DIRBI  K , PAGHD4 

COMMON  /IVFLAG/  FI  OMSK ,  FI  1MSK ,  FI  2MSK ,  FI  3MSK ,  FI  4MSK ,  FI  5MSK ,  FI  G67 , 

1  FI  AG8.FI  AG9, FI  AGIO, FIAG1  1, FI  AG12.FI  AG  13, FI  AG14, 

2  FI  AG  15 

COMMON  /I VBDVI /  THSMSA , REGAS , P AGENO , CONTNO , 1 NSPEL , 

1  USECT ,  HDRFI  G .  RE ADVI  ,  01  DNPH ,  DNOPEH ,  NROWH ,  DROVE 

COMMON  /I  VPRAM/  Bl'FI  OC .  LENGTH ,  I  ERR ,  ERRNl’M ,  B I  NARY ,  BCD ,  MOPE ,  PAGES , 

1  LUN 

COMMON  /I VMASK/  MVR ITE , NOTUSP , NFWCON , FIGMSK , MASKSF , MASKPF 
COMMON  /LVVTR1/  NOPSPC! 1) 

1  /IVVTR2/  LSTSPC'  1 ) 

2  /1VVTR3/  LNKSPC  <  1 ) 

3  /1VVTR4/  FIGSPCf  1> 

C 

C  THIS  ROPTINE  PERFORMS  A  BCP  WRITE  OF  NUMBLK  PAGE-BI OCKS  BEGINNING  AT 
C  GIRS  BUFFER  LOCATION  NBIAS 
C 

C  FLAG  CONTINUANT  AS  USED 

FI  GSPC'CTRl  PT  ♦  HDRFI  G)  =  FI  GSPC'CTRI  PT*HDRFI  G)  .ANP.  .NOT.  NOTUSP 
D  PAUSE  'IN  LVWRIT ’ 

DO  100  M  =  1, NUMBLK 
ISTLOC  =  NBIAS*BDRSZE* 1 
LAST  =  ISTLOC-PAGSZE-1 
I F  <  NB I AS  .GT.  0)  GO  TO  10 
LAST  =  D I RSZE 
GO  TO  30 

C  EXTRACT  HEADER  VALUES 

10  MSA  =  NOPSPC (NBI AS  ♦  THSMSA) 

REGASP  *  NOPSPC  *  NBIAS  ♦  REGAS) 

PAGE  =  LSTSPC! NBIAS  *  PAGENO) 

CONT  =  LSTSPC' NBIAS  ♦  CONTNO) 

INSPLT  =  LNKSPCf NBIAS  ♦  I NSPEL) 

USEAGE  =  LNKSPC! NBIAS  ♦  USECT) 

FLAGS  =  FIGSPC! NBIAS  ♦  HDRFI G) 

RPVAL  *  FI GSPC< NBIAS  ♦  READVI  ) 

VRITE<LUN. 1) 

WRITE(LUN,2)  PAGE, CONT 
C  WRITE  HEADER 

WRITE(LVN,3) 

WRITE(LUN,4)  MSA , REGASP ,  I NSPLT , USEAGE , R  AGS , RPVAL 
WRITE (LUN, 5) 

30  COUNT  =  0 

DO  50  BUFCNT  =  ISTLOC,  LAST 
COUNT  --  COUNT  ♦  1 
Ml  =  NOPSPC <BUFCNT) 

M2  =  LSTSPC' BUFCNT) 

M3  *  LNKSPC 'BUFCNT) 

M4  =  FIGSPC 'BUFCNT) 

IF'NBIAS  .GT.  0)  GO  TO  45 


C  ’X-CORE  DIRECTORY 
0046  CONTIN  -  -I 

6041  fPHFIGSPC'BUFCNT;  ANT.  FI  l USX)  .EQ.  0)  00  TO  40 

0043  CONTIN  •  Bl'FCNT  -  Ml  -  1 

0044  IF<CONTIN  .IT.  0)  CONTIN  *  CONTIN  *  DIRSZE 

0046  00  TO  47 

0047  40  Ml  >  0 

QQ^Q  jJ2  ■  0 

0049  47  VRITE!LUN,7)  BUFCNT ,  COl’NT ,N1  ,CONT IN,N2, M3, M4 .COUNT 

00S0  00  TO  50 

0051  45  VRITE(LVN,6)  BUFCNT .COUNT, M 1 ,M2 , M3, M4.C0UNT 

0052  50  CONTINUE 

0053  NBIAS  •  NBI*S»PAGHDR 

0054  100  CONTINUE 

0055  1  FORMAT!///, 10X, ’PAGE’ ,3X, 'CONTINUANT* ,/) 

0056  2  F0RNAT(8X, 16, 3X, 16,//) 

0057  3  FORMAT! IX, ’  MSA  REGASP  ! INSERT IONS-DELET IONS)  USAGE 

1  H  AGS  READ  COUNT’  > 

0058  4  FORMAT! IX, IS,2X, 15, 10X, IS, 14X, I5,3X,03,3X, 15,///) 

0059  5  FORMAT! IX, ’WRXSPC  NOPSPC  LSTSPC  LNKSPC  FIGSPC 

1  OCTAL  COUNTER' ,//) 

0060  6  FORMAT ! IX, I6,2X, I6,2X,06,2X,06,2X,06,2X,06,2X,06) 

0061  7  FORMAT!  IX,  16, 2X,  16,2X,06,6X,  13,5X,06,2X,06,2y.,06,2X,06) 

0062  RETURN 

0063  END 
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C 

C 

C 

SUBROUTINE  LVCIOS 
IMPLICIT  INTEGER* A-Z) 

LOG ICAL* 1  CVRFNT 

COMMON  /IVREGS/  Cl'RPAGM)  ,REQPAG'4>  ,LSTVPG'4> , MSARET , 

1  HREQPG , NXTMSA , HACTPG < 2  ) .READCT ,USECNT,DIRP AG, 

2  DIRCNT,0UTL0C,0UTDIR'256> , RWBUF  < I ) 

COMMON  A  VMASK/  MWR I TE ,  NOTUSP ,  NEWCON ,  FI  GMSK ,  MASKSF ,  MASKPF 
COMMON  A  VRANP/  PRIME, SEED , NROW , DNOPE , DROW , OI.DNOP , L I STSZ , 

1  GRNTBI  (256) 

COMMON  A VCRNT /  REGASP ,  CTRI  PT ,  CTRI  t , LEAST V , NTFREE , FREE , DREGSP , 

1  MSA , PAGI  OC , CVRENT 

COMMON  /IVBUFR/  P AGSZE ,  NWCHAN ,  01  CHAN ,  CMPANP ,  PAGHDR ,  Bl'FSZE ,  D I RSZE , 

1  I NCORE , HDRSZE , MSAD I R , SVFSZE , BI  KSZE , D I RBI  K , PAGBD4 

COMMON  /I VHDVI /  THSMSA , REGAS , P AGENO . CONTNO , I NSPEL , 

1  USECT ,  HDRFI  G,  READVI  ,  01 DNPH ,  DNOPEH ,  NROWB ,  DROWB 

COMMON  A VVSEQ/  I SEQSZ , I SOPOS , LASTSO , SEQSPC ( 1 ) 

COMMON  /1VPRAM/  BUFI  OC.  LENGTH,  I  ERR,  ERRNl'M,  BINARY,  BCP,  MOPE,  PAGES, 

1  LUN 

COMMON  /I  VUSER/  USFR<224> 

D  PAUSE  ’IN  LVCIOS’ 

C 

C  SAVE  SYSTEM  VAR1  ABIES  ON  FIRST  BLOCK  OF  DISK 
RWBUF'  1>  =  REGASP 
RWBUF'  2) =  NXTMSA 
RWBUF'  3)-  PAGSZF 
RWBUF'  4 ) =  PAGHDR 
RWBUF'  5> -  BUFSZE 
RWBUF'  6>=  DIRSZE 
RWBUF'  7) =  DRFGSP 
RWBUF'  8) =  INCORE 
RWBUF'  9) »  HDRSZE 
RWBUF' 10)=  HREQPG 
RWBUF' 11)=  HACTPG' 1) 

RWBUF' 12)=  HACTPG' 2) 

RWBUF' 13)=  READCT 
RWBUF' 14)=  BI KSZE 
RWBUF' 15)=  SUFSZE 
RWBUF' 16)=  DIRBIK 
RWBUF' 17)=  PRIME 
RWBUF' 18)=  SEED 
RWBUF' 19) =  LISTSZ 
RWBUF' 20)=  I SEQSZ 
DO  10  I  =  1,  4 
RWBUF ' 20+ I )  =  CURPAG'I) 

RWBUF <24+ I )  =  LSTVPG'I) 

10  CONTINUE 
C 

C  USFR  WILL  HAVE  ACCESS  TO  WORDS  29  THRU  256  OF  THE  FIRST  BLOCK  TO  STORE 
C  VARIABIES  IE  A  PERMANENT  FILE  IS  TO  BE  CREATED. 


DO 

15  I 

=  29,256 

J  = 

I  - 

28 

15 

RWBUF' I) 

=  USFR'J) 

LENGTH  = 

256 

MSA  =  0 
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-V, 


0042  ERRNUM  =  3 

0043  I ERR  *  I WR ITW  * LENGTH , RWBUF  < I ) , MSA , NWCHAN ) 

0044  PUMP  =  0 

0045  IFUERR.lT.0)  CALL  LVERR'DUMP) 

C 

C  SAVE  GRN  VAR  I  ABIES 
C 

0047  LENGTH  =  256 

0048  MSA  =  1 

0049  ERRNUM  =  4 

0050  I ERR  *  IVRITV<LENGTH,GRNTBl< I) , MSA, NWCHAN) 

0051  PUMP  =  0 

0052  1FUERR.IT.0)  CALL  LVERR'DUMP) 

C 

C  SAVE  INCORE  DIRECTORY  BEGINNING  AT  MSA  =  2 
C 

0054  MSA  =  2 

0055  Bl'FIOC  =  1 

0056  LENGTH=D1RSZE 

0057  ERRNVM  =  5 

0058  CALL  LVPAGW 

C 

C  SAVE  CURRENT  Ol'TCORE  DIRECTORY 
0059  CALL  LVPRWR 

C 

C  CLOSE  CHANNEL 

0060  CALL  Cl OSEC  < VVCH AN ) 

0061  RETURN 

0062  ENT 
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C 

c 

c 

SUBROUTINE  LVPAGR * CHAN ) 

IMPLICIT  INTEGER <A-Z) 

LOGICAL*!  CERENT 

COMMON  /IVREGS/  CURPAG*4)  ,REQPAG<4>  ,LSTVPG<4>  .MSARET, 

1  HREQPG , N XT MS A , RACTPG * 2 ) , READCT , USECNT , D I RP AG , 

2  D I RCNT ,  Ol'TLOC ,  OUTD I R  ( 256 )  ,  RWBUF  *  1 ) 

COMMON  /I VCRNT/  REGASP ,  CTRI  PT ,  CTRl  1 , LEASTV , NT FREE , FREE , DRFGSP , 

1  MSA ,  P  AG1 OC ,  Cl'RE'NT 

COMMON  /!  VBUFR/  PAGSZE ,  NWCttAN ,  OI.CBAN ,  CMPANP ,  PAGPDR ,  BUFSZE , D1RSZE , 

1 _ _  I NCORE ,  HDRSZF ,  MSAD I R ,  SUFSZE ,  BI  KSZE ,  D 1  RBI  X ,  P AGHD4 

1  COMMON  /IVPRAM/  BUFIOC , LENGTH ,  IERR , ERRNl'M .BINARY , BCP, MODE, PAGES, 

COMMON  /I VMASK/  KWR 1 TE , NOTUSP , NEWCON ,  FI  GMSK , M ASKSF , MASKPF 
COMMON  /I VHDV1  /  THSMSA, REGAS, P AGENO, CON'TNO ,  INSPEL, 

I  1ISECT ,  HDRFI G .  READV1  , 01  DNPB ,  DNOPEH ,  NRONH ,  DROWH 

COMMON  /IVVTR1/  N0PSPC*1> 

1  /I VVTR2/  LSTSPC < I ) 

2  /IVVTR3/  LNKSPC  *  1 ) 

3  /I  VVTR4/  FI  GSPC*  1) 

C 

C  THIS  ROUTINE  READS  DATA  FROM  DISK  INTO  RWBl'F  ANP  PLACES  IT  INTO  WRKSPC 
D  PAUSE  ’IN  LVPAGR * ) ' 

NEWIEN  =  4*1  ENGTH 

IERR  =  I RI  ADW  *  NEWI  EN ,  RWBl’F *  1  > ,  MSA ,  CBAN  > 

ERRNUM  =8 
PUMP  «  0 

IF* IERR. IT. 0)  CALL  LVERR * DUMP ) 

ISTLOC  =  BUFI  OC  -  1 


10 


DO  10  I  =  1, LENGTH 
NOPSPC  * ISTLOC  +  I) 
LSTSPC* ISTLOC  ♦  I) 
LNKSPC* ISTLOC  ♦  I> 
FI GSPC* ISTLOC  ♦  I) 


IF*  ISTLOC  .IE.  0)  RETURN 


RWBUF  *  I ) 

RHBl'F*  LENGTH  ♦ 
RWBUF *2*1  ENGTH 
RWBUF <3*1  ENGTH 


1) 


I) 

I) 


C  IF  NOT  DIRECTORY,  FI  AG  CONTINUANT  AS  NOT  USED 

FI  GSPC  <  I STL0C+HDRF1 G )  =  FI  GSPC*  ISTLOC*HDRFI  G>  .OR. 

RETURN 

ENP 
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C 

C 

C 

SI'BROUT  I NF  LVPAGV 
IMPLICIT  INTEGER '  A-7.  i 
LOGICAL*  1  (TRENT 

COMMON  /1VRFGS/  CI'RPAG'  4 i  ,  RFQPAG' 4  i  ,  LSTVPG*  4 )  ,  MNARFT  , 

1  HRFQPl. .  NVTMSA  ,  H ACTPG  <  2 1  ,  RFADCT  .  t'SECNT  . D I RP AG . 

2  D I RCNT ,  Ol'TI.OC .  OLTD l R  <  256  >  ,  RWBUF  <  1  > 

COMMON  /I  VCRNT/  RFGASP  ,  CTRI  PT  .  CTRI  I  .  I.EASTV  .  NTPRFE ,  FRFE ,  DRFGSP . 

1  MSA  ,  PAGI  OC  ,  CURFNT 

COMMON  /IVBl'FR/  PAGSZF , NWCFAN  .01  CHAN  .CMPANP, PAGWDR ,  BI'FSZF  .DIRSZF , 
1  I NCORF , HDRSZF  .  MSADIR.  Sl'FSZF ,  Bl  KSZF , 01  RBI  K ,  PAGHD4 

COMMON  /I  VPRAM/  Bl'FI  OC .  LEN'iTH ,  I  ERR ,  ERRNUM ,  B I  NARY ,  BCP ,  MOPE ,  PAGES . 

1  LUN 

COMMON  /IVHDVI/  THSMSA  ,  RFGAS ,  PAGFNO,  CONTNO.  INSPEL , 

1  ItSFCT , HDRFI  G .  RFADVI  ,  01  PNPH  ,  DNOPEH ,  NROWB  ,  DROWN 

1'OMMON  /1VMASK/  MWR ITE  .NOTUSP ,  NFWCON  ,  FI  GMSK  ,  MASKSF .  NASKPF 
COMMON  /IVVTRl/  NOPSPC'll 

1  /1VVTR2/  LSTSPC<  I) 

2  /IVVTR3/  LNKSPC  ‘  1 i 

3  /I  VVTR4/  F1GSPC  1) 

C 

C  THIS  ROUTINE  TRANSFERS  THE  CONTENTS  OF  WRKSPC  TO  RWBt'F  TO  BF  WRITTEN 
C  Ol'T  TO  DISK 
D  PAl'SF  'IN  LVPAGW ' 

NFVIEN  =  4*1  ENGTH 
ISTLOC  =  Bl'FI  OC  -  1 
C 

C  IF  NOT  DIRECTORY ,  TURN  HAGS  OFF 
IF'  ISTLOC  .IE.  01  GO  TO  5 

FIGSPC'  ISTLOC*HDRFI  Gl  =  FI  GSPC'  ISTL0C*HDRF1  G)  .ANP.  .NOT.  FI  GMSK 
5  DO  10  I  =  1,  LENGTH 

RWBl'F 1  1 )  *  NOPSPC' ISTLOC  ♦  II 
RWBUF' LENGTH  ♦  I >  =  LSTSPC' ISTLOC  ♦  I) 

RWBUF ' 2*1  ENGTH  ♦  I )  «  LNKSPC' ISTLOC  ♦  I) 

10  RWBUF <3*1  ENGTH  *11=  FI  GSPC ' I STLOC  ♦  I) 

I ERR  =  I WR I TW  <  NFWI EN . RWBUF  < 1 ) , MSA , NWCBAN 1 
ERRNVM  -  9 
DUMP  =  0 

IF' IERR.IT.01  CALL  LVFRR < DUMP  1 

RETURN 

ENP 
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Sl'BHOn  INK  LVPRRP<CHAN> 

mpt  icn  i n rpiiKK •  a  /• 

COMMON  /I  VKFOS-  l  I  RPAG‘4>  .R,ypA0‘4  l.STVPG  4,  T 

1  HRFOPC .  SXTMSA  HAOTPO<  7  •  .  RE'AIMT  ISEVVr  PIRPA1. 

2  DIBCN3  .Ol’Tl.OC  Ol'TIH  N  •  ?S6  >  .  RfaRIE  1  1  • 

COMMON  /1VBIFR/  PA(;sV>  .Kfcn'AS  OICPAN  GMPANP  PA'JHi  k  HI  EV/E  .  Ill RS7E 
I  1 NCORE  .  HDRX.'E  ,  M.iAl)  I  R  SIEV/E  ,  Itl  ASVE  .  It  I  h  HI  I  PA<!P|u 

common  /\  vpram/  Htrnx  length  ierr  errnim  binary  w  i  *>h  pages 

1  1.IN 

c 

C  THIS  ROUTINE  READS  A  SRhTKB  OUTCOME  lilKHTOIIl  bl  • »  h  :*Tn  nlTI'IR 
C 

D  PAISE  '  IN  LVPRRIo  i 
LENGTH  *  256 

MSA  --  MSAlilK  -  UlKHlK  •  IHRPAG 
ERRNIM  =  6 

IERR  =  I  RE  APW  <  LENGTH  . Ol'Tl)  IP  I  >  . MSA  'VAS> 

PIMP  =  0 

I K  <  I  ERR  I  T  0)  CAM  I.VKRR<'il  MP> 

RETURN 

ENP 


SI'BROI'TINE  l.VPRWR 
I  MIT  1C  IT  INTEGE'R  <  A-Z  * 

COMMON  /IVRE'GS/  CURPAG<4 1  ,  RFQPAG1  4 1  ,  LSTVPG  ■  4  >  ,  NSARI  1  , 

1  IIREQPG .  NVTMSA  ,  HACTPG  <  2  >  ,  REAWT  .  ISEVV7  .IHRPAG. 

2  U IRCNT  ,  olTLOC  Ol’TDIR 1  256 >  ,RWBUE  1  M 

aJNMON  /l  VBIE'R/  PAGSZE  ,  NWCHAN  .  01  CHAN  ,  CMPANP .  PAGHDR  BUFSZE  .  I)  IRSZI 
I  I NCORE  .  HDRSZF  .  ANADIR  .  STFSZF  ,  Bl  ►  SZE .  D I  RBI  k  .  P  AGHD  I 

COMMON  /I  VPRAM /  BUFl  >K .  LENGTH .  IfcRR  ERRNI'M. BINARY  ,  BCP,  MOPE  PAGE'S  , 

1  Ll’N 

:  THIS  ROITINE  WRITES  THE  OUTITJRE  DIRECTORY  Bl  (A  A  FROM  ol  TDIR"  T<>  DISK 

5  PAUSE  IN  l.VPRWR ’ 

LENGTH  =  256 

MSA  -  MSADIR  ♦  DIRHIK  ♦  DIKPAG  -  1 
ERRNUM  =  7 

I  ERR  =  I WR ITW  •  LENGTH  ,01'TDIR  1  1  >  ,MSA  ,  NWCHAN  » 

Pl'MP  -  0 

IF'IERR  IT.0»  CALL  LVFRR ' Dl'MP i 

RETURN 

ENP 
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FORMAT*  '  IFT'NC  .  URG.  IPOS.  1TVP.  IVAL , SVAL ,  NSK IP ,  I  TEST  R  .  I  NCI  ID, 

i i snxo.s • / . 

!  •  IVALS*  1  >  ,  ITYPl  (  1  )  , SRCSI'F . '  NKSl'F .  SSKSIF .  1NSTYP'  ) 

0036  WRITE* I.IS.  2) 

!  I  Ft  SC.  IARG.  IPOS.  1TYP  ,  IVAL,  SVAL,  NSK  1 1\  ITESTR.  I  NCI  I'D ,  INPXON. 

1  IVALS*  I  l .  1TYP  1  <  t )  , 

2  SRCSI’F .  LNKSl'F .  SNKSI'F .  INSTYP 

0037  WRITE  (LI'S.  3  * 

I  IFVNC .  IARO.  IPOS.  ITYP  ,  I VAL  .  SVAL ,  NSK1P  ,  1TESTR ,  ISC1  I'D,  ISDXOS. 

1  IVALS* I i . ITYPl t I i , 

2  SRCSI'F. LNKSl'F. SNKSI'F.  ISSTYP 

0038  WRITE* I.I'S  .  4) 

0039  WRITE*  M  S  12) 

0040  12  FORMAT*  -  Ct'RPAG '  4 )  '  , 30X  ,  'RFQPAC  LSTVPG'4)  -  ) 

0041  WRITE*MS.6>  CPKPAG . RFQPAG . LS7  « 

0042  WRITE* M  S  .  4) 

0043  WRITE'M S. 122) 

0044  1 22  FORMAT ( ’  MSA RET  , HRFQPG . SXTMSA , HACTPG  *  1 ) , HACTPG *  2 ) , RFADCT . ISECNT . 

2PIRPAG .  D1RCST  ,01'TLOC  '  ) 

0045  WRITE*  UN.  2> 

1  MSARFT  ,  HRFOPG .  SXTMSA. ,  HACTPG .  RFADCT  .  PSFCST  ,  D I RP AG . 

2  D1RCXT ,  Ol'TLOC 

0046  WR  ITE*  LI'S  .  4) 

0047  WRITE*  M'S.  13) 

004*  13  FORMAT*'  PR ! MF . SFED , SROW . DNOPE , DROW . 01  DROP , L I STSZ 1 ' 

0049  WRITE  (LI’S.  2*  PR  I  ME,  SFED .  SROW  ,  DNOPE ,  DROW  .  01  DNOP,  LI  STSZ 

0050  WRITE*  LI'S .  4) 

0051  WRITE*  LVN .  14) 

0052  14  FORMAT* ’  RFGASP , CTRI  PT , CTRI  1 . LEASTV . NTFRFE . FRFE . DRFGSP . MSA . 

1PAGI0C-  ) 

0053  WRITE* LI'S.  2) 

1  RFGASP  ,  CTRI  PT  .  CTRI  1 ,  LEASTV  ,  NTFRFE ,  FREE ,  DRFGSP  .  MSA  , 

I  PAGIOC 

0054  WRITE*LlrN.  4) 

0055  WRITE*  LFN .  IS* 

0056  15  FORMAT*’  P AGS/E , NWCBAN .01 CTAN , CMP AND, PAGHDR , BVFSZF , D1 RSZF . 

1 1 NCORF , HDRS/F ,  MSADIR  '/’  SIFSZF ,  BI  KSZF ,  D 1  RBI  K .  PAGHD4 -  ) 

0057  WRITE*LEN,  2) 

1  PAGSZF ,  NWCHAN  .  01  CBAN  .  CMP  ASP .  FAGHDR .  BI'FSZE ,  D I RSZF , 

I  INCORF ,  HDRSZF ,  MSAD I R  ,  SI  FSZF ,  BI  KSZF ,  DIRBI  K ,  PAGHD4 
0058  WRITE* LFN .  4) 

0059  WRITE*  LI'S.  If.) 

0060  16  FORMAT* '  SFTUP.SNGI  BK.NXTRAN, INISTR. IS2STR . FPISTR , FP2STR . DL 1STR , 

l  DL2STR  ,  F I NPF1  '  /  ’  DLETF1  ,  NSRTFI  ’  ) 

0061  WR  ITE*  Ll'N .  5)  SFTFP.SNGl  BK.NXTRAN,  INISTR,  IN2STR,  FPISTR.  FP2STR. 

1  DL  1STR  ,  DL2STR ,  FINPFI  .  DLETFI  ,  NSRTFI 

0062  WRITE* Ll'N  .  4) 

0063  WR  ITE* Ll’N .  17) 

0064  17  FORMAT*-  FELL , RFORG , CTRFNT * ) 

0065  WR  ITE*  LIN ,  5)  FI'LL ,  RFORG , CPRFNT 

0066  WRITE* Ll'N.  4) 

0067  WRITE*  Ll'N  .  18) 

0068  18  FORMAT  <  -  BPFI  OC ,  LENGTH ,  I  ERR ,  ERRNl'M  ’ ) 

0069  WRITE  (Ll'N,  2)  BPFI  OC ,  LENGTH ,  I  ERR  ,  ERRNl'M 

0070  IF < DUMP  EQ  PART)  GO  TO  30 

0072  WR1TEILPN.  4) 

0073  WR  ITE  *  Ll'N ,  123) 
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0074 

0075 

0076 

0077 

0078 

0079 

0080 

OOSi 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0091 

0092 

0093 


0001 

0002 

0003 

0004 


0005 


0006 


0007 

0008 

0009 


0010 
001  1 
0012 


123  FORMAT ('  0ETLIR<256> ’ ) 

WR  I TE  ( LEN  .  6  >  OETDIR 
WRITE  (US.  4) 

WRlTElLlS.  124i 

124  FORMAT  < '  RWBVF < 256) ’ ) 

WR  !TE<  LI'S  .6  >  RWbEF 
WRITE  (LI'S.  4) 

WR  1  TE ( LI'S  .  I3U 
131  FORM AT C  GRSTB1 (256) * ) 

WRITE <L1S. 6)  GRNTBI 
WRITE  (LI'S,  4) 

WRITE (  LI'S  .  19) 

19  FORMAT ( ’  STACK’) 

WRITE  (LIS.  2)  STACK 
30  WRITE  (LI'S.  4) 

I F 1  Dl'MPFI  .FO'-  TREE.)  RFTERN 
CALL  Cl  OSFC'NWCHAN) 

STOP 

ESP 

C 

C 

C 

SEBROET  I NF  LVRTRS 
IMPLICIT  INTEGER) A-Z) 

LOGICAL* 1  CERENT 

COMMON  /IVARGS/  IFENC,  IARG.  IPOS,  ITYP,  IVAL,N'VAL,NSKIP,  ITESTR. 

1  I  NCI  UD,  INPXON.  I VALS  <  10)  ,  ITYPI  (  10)  .SRCSEF. 

2  LNKSl'F ,  SNKSFF .  I NSTYP 

COMMON  /IVREGS/  CERPAG<4)  ,  REQPAGM)  ,LSTVPG<4>  ,MSARFT, 

1  HRFQPG.NXTMSA ,HACTPG<2>  , RE ADCT  .  L'SECNT , D I RP AG . 

2  D I RCNT , OETLOC . OETDI R  < 256 ) . RWBEF < 1 ) 

COMMON  /I  VFI  AG/  FI  OMSK ,  FI  1 MSK  ,  FI  2MSK .  FI  3MSK  .  FI  4MSK .  FI  5MSK .  FI  G67 , 

1  FI  AG8.FI  AG9,FI  AGIO,  FI  AG1  1  ,FI  AG  1 2,  FI  AG  13.  FI  AG  14, 

2  FI  AG  1 5 

COMMON  /IVCRNT/  RFGASP , CTRI  PT , CTRI  I , LEASTV . NTFREE . FREE . DREGSP , 

1  MSA.PAG10C,  CERENT 

COMMON  /I VHDVI /  THSMSA , RFGAS . PAGENO , CONTNO . INSPEL . 

1  ESECT ,  HDRFI  G ,  RI-'ADVI  , 01  DNPH ,  DNOPEH ,  NROWH ,  DROWH 

COMMON  /IVVTR1/  SOPSPC  <  1  > 

1  /I  VVTR2/  LSTSPC '  1 ) 

2  /IVVTR3/  LNKSPC  <  l ) 

3  /IVVTR4/  FIGSPC'  1) 

C 

C  THE  PURPOSE  OF  THIS  ROETINF  IS  TO  ENPEFINE  A  NOPE. 

D  PAUSE  ’IN  LVRTRS’ 

FI(SPC‘CTRI  1  ♦  IVALi  =  RGSPC'CTRIl  ♦  IVAL)  -ASP.  .  NOT .  FI  3MSK 

RETURN 

ENP 
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c 

c 

0001  FUNCTION  LVRTStM WORD, BITS) 

0002  IMPLICIT  INTEGER 1 A-Z) 

C 

C  THIS  FUNCTION  PERFORMS  A  RIGHT  LOGICAL  SHIFT 


0003 

C 

IF* BITS  .EQ.  0)  GO  TO  10 

0005 

IF ' BITS  ,G£.  16)  GO  TO  20 

0007 

LVRTSH  =  VORP  /  2  ••  (BITS) 

0008 

RETURN 

0009 

10 

LVRTSH  =  WORP 

0010 

RETURN 

001  1 

20 

LVRTSH  =  0 

0012 

RETURN 

0013 

C 

ENP 

0001 

C 

C 

FUNCTION  LVI  FSH( VORP, BITS) 

0002 

n 

IMPLICIT  INTEGER <A-Z) 

C  THIS  FUNCTION  PERFORMS  A  LEFT  LOGICAL  SHIFT 

0003 

C 

IF<BITS  .EQ.  0)  GO  TO  10 

0005 

IFfBITS  .GE.  16)  GO  TO  20 

0007 

LV1FSH  =  VORP  •  2  ••  (BITS) 

00O8 

RETURN 

0009 

10 

LVIFSH  =  VORP 

0010 

RETURN 

0011 

20 

LVIFSH  -  0 

0012 

RETURN 

0013 

ENP 

! 

4 


COMMON  BLOCK  /I  VARGS/  LENGTH  000104 

IFl'NC  000000  1NTEGER*2  VARIABIE 
IARG  000002  INTEGER* 2  VARIABIE 
IPOS  000004  INTEGER* 2  VARIABIE 
ITYP  000006  INTEGERS  VARIABIE 
IVAL  000010  INTEGER*2  VARIABIE 
NVAL  000012  INTEGER* 2  VARIABIE 
NSKIP  000014  1NTEGER*2  VARIABIE 
ITESTR  000016  INTEGER* 2  VARIABIE 
I  NCI  UD  000020  INTEGER*  2  VARIABIE 
INPXON  000022  INTEGER* 2  VARIABIE 
IVALS  000024  INTEGER* 2  ARRAY  (10) 
ITYP 1  000050  INTEGER*2  ARRAY  (10) 

SRCSUF  000074  INTEGER* 2  VARIABIE 
LNKSUF  000076  INTEGER*2  VARIABIE 
SNKSFF  000100  INTEGER*2  VARIABIE 
INSTYP  000102  I  NT  EGER*  2  VARIABIE 

COMMON  BLOCK  A VREGS/  LENGTH  001056 

CURPAG  000000  INTEGER‘2  ARRAY  (4) 
REQPAG  000010  INTEGER* 2  ARRAY  (4) 
LSTVPG  000020  INTEGER*2  ARRAY  (4) 

NAME  OFFSET  ATTRIBUTES 

MSA  RET  000030  INTEGERS  VARIABIE 
HREQPG  000032  INTEGER*2  VARIABIE 
NXTMSA  000034  INTEGER* 2  VARIABIE 
HACTPG  000036  INTEGER*2  ARRAY  (2) 
READCT  000042  INTEGER*2  VARIABIE 
USECNT  000044  INTEGER* 2  VARIABIE 
OIRPAG  000046  INTEGFR*2  VARIABIE 
DIRCNT  000050  INTEGER*2  VARIABIE 
OITLOC  000052  INTEGER‘2  VARIABIE 
OFTDIR  000054  INTEGER‘2  ARRAY  (256) 
RVBUF  001054  INTEGER* 2  ARRAY  (1) 

COMMON  BLOCK  A VMASK/  LENGTH  000014 

MVRITE  000000  INTEGER* 2  VARIABIE 
NOTUSP  000002  INTEGER‘2  VARIABIE 
NEVCON  000004  INTEGER* 2  VARIABIE 
FIGMSK  000006  INTEGER* 2  VARIABIE 
MASKSF  000010  INTEGER*2  VARIABIE 
MASKPF  000012  INTEGER*2  VARIABIE 

COMMON  BI  OCK  /1VF1AG/  LENGTH  000036 

FI  OMSK  000000  INTEGER*  2  VARIABIE 
FI  1MSK  000002  INTEGER* 2  VARIABIE 
FI  2MSK  000004  I  NT  EGER*  2  VARIABIE 
FI3MSK  000006  INTEGER* 2  VARIABIE 
FL4MSK  000010  INTEGER*2  VARIABIE 
FI5MSK  000012  INTEGER*2  VARIABIE 
FIG67  000014  INTEGER*2  VARIABIE 
FI  AGP  000016  INTEGER*2  VARIABIE 
FI  AG9  000020  INTEGER*2  VARIABIE 
FI AGI0  000022  INTEGER*2  VARIABIE 
FLAG  I  I  000024  INTEGERS  VARIABIE 
FI  AG  12  000026  INTEGER*  2  VARIABIE 

RAG  13  000030  INTEGER*2  VARIABIE 
FI  AG  14  000032  INTEGER*2  VARIABIE 

FI  AG  15  000034  INTEGER*2  VARIABIE 

COMMON  BLOCK  A VRANP/  LENGTH  001016 

PRIME  000000  INTEGER* 2  VARIABIE 
SEED  000002  INTEGER *2  VARIABIE 
N10V  000004  INTEGER* 2  VARIABIE 
DNOPE  000006  INTEGER* 2  VARIABLE 
DROV  000010  INTEGER* 2  VARIABIE 
OIDNOP  000012  INTEGER* 2  VARIABIE 
LISTSZ  000014  INTEGER* 2  VARIABIE 
GRNTBI  000016  INTEGER* 2  ARRAY  (256) 
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COMMON  BLOCK  /1VCRNT/  LENGTH  000023 


REGASP 
CTR2.PT 
CTRL  1 
LEASTV 
NT FREE 

NAME 

FREE 

DREGSP 

MSA 

PAGIOC 

Cl'RENT 

COMMON 

PAGSZE 
NVCBAN 
01  CHAN 
CMP AND 
PAGHDR 
BUFSZE 
DIRSZE 
INCORE 
HDRSZE 
MSADIR 
SITSZE 
B1KSZE 
DIRBIK 
PAGBD4 

COMMON 

THSMSA 

REGAS 

PAGENO 

CONTNO 

INSPEL 

USECT 

HDRFIG 

READ  VI 

OIDNPH 

DNOPEH 

NROVH 

DROVB 

COMMON 

SETUP 

SNGLBK 

NXTRAN 

IN1STR 

IN2STR 

FP1STR 

FP2STR 

DL1STR 

DL2STR 

IN2TMP 

FP2TMP 

DL2TMP 

DUMP  FT 

FINPFL 

DLETPI 

NSRTF1 

COMMON 

ISEQSZ 
ISOPOS 
LAST SO 
SFQSPC 


000000  I NT EGER* 2  VARIABLE 
000002  INTEGERS  VARIABLE 
000004  INTEGER*2  VARIABLE 
000006  INTEGERS  VAR  I  ABIE 
000010  INTEGERS  VARIABLE 

OFFSET  ATTRIBUTES 

000012  INTEGER* 2  VARIABLE 
000014  INTEGERS  VARIABLE 
000016  INTEGERS  VAR  I  ABIE 
000020  INTEGER*2  VAR I ABIE 
000022  LOGICAL* 1  VARIABLE 

BIOCK  /I  VBl'FR/  LENGTH  000034 

000000  INTEGER*2  VARIABLE 
000002  INTEGER*2  VARIABLE 
000004  INTEGER* 2  VARIABLE 
000006  INTEGER* 2  VARIABLE 
000010  INTEGER*2  VARIABLE 
000012  INTEGFR*2  VARIABLE 
000014  INTEGER* 2  VARIABLE 
000016  INTEGER*2  VARIABIE 
000020  INTEGER* 2  VARIABIE 
000022  INTEGER*2  VARIABIE 
000024  1 NTEGER*2  VARIABLE 
000026  INTEGER*2  VARIABLE 
000030  I NT EGER* 2  VARIABLE 
000032  INTEGER*2  VARIABLE 

BLOCK  /l  VBDVL/  LENGTH  000030 

000000  INTEGER* 2  VARIABIE 
000002  INTEGER* 2  VARIABLE 
000004  INTEGERS  VARIABLE 
000006  INTEGERS  VARIABIE 
000010  INTEGER* 2  VARIABIE 
000012  INTEGER* 2  VARIABLE 
000014  INTEGER* 2  VARIABLE 
000016  INTEGER* 2  VARIABIE 
000020  INTEGER* 2  VARIABLE 
000022  INTEGERS  VARIABLE 
000024  INTEGER*2  VARIABLE 
000026  INTEGER* 2  VARIABLE 

BLOCK  /I  VSWIT/  LENGTH  000020 

000000  LOGICAL* 1  VARIABLE 
000001  LOGICAL* 1  VARIABLE 
000002  LOGICAL* 1  VARIABLE 
000003  LOGICAL* 1  VARIABLE 
000004  LOGICAL* 1  VARIABLE 
000005  LOGICAL* 1  VARIABLE 
000006  LOGICAL* 1  VARIABLE 
000007  LOG  I CAL* 1  VARIABLE 
000010  LOGICAL* 1  VARIABLE 
000011  LOGICAL*!  VARIABLE 
000012  LOGICAL* 1  VARIABLE 
000013  LOGICAL* 1  VARIABLE 
000014  LOGICAL* 1  VARIABLE 
000015  LOGICAL* 1  VARIABLE 
000016  LOGICAL*!  VARIABLE 
000017  LOGICAL*  1  VARIABIE 

BIOCK  /IVVSEQ/  LENGTH  000010 

000000  INTEGERS  VARIABIE 
000002  INTEGER*2  VARIABIE 
000004  INTEGER* 2  VARIABIE 
000006  INTEGER*2  ARRAY  (!) 
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COMMON  BIOCK  A  VPRAM/  LENGTH  000022 

BVFIOC  000000  INTEGER* 2  VARIABIE 
LENGTH  000002  INTEGER*2  VARIABIE 
I ERR  000004  INTEGER* 2  VARIABIE 
ERRNl'M  000006  INTEGER* 2  VARIABIE 
BINARY  000010  INTEGER* 2  VARIABIE 
BCP  000012  INTEGEK*2  VARIABIE 
MOPE  000014  INTEGER* 2  VARIABIE 
PAGES  000016  1NTEGER*2  VARIABIE 
I.UN  000020  INTEGER*2  VARIABIE 

COMMON  BLOCK  A VSTAK/  LENGTH  000006 

CVRLEV  000000  l  NT  EGER*  2  VARIABIE 
NUMVAR  000002  INTEGFR*2  VARIABIE 
STACK  000004  INTEGER*2  ARRAY  (1) 

COMMON  BLOCK  A  Vl'T  I L/  LENGTH  000126 

FILSPC  000000  INTEGER* 2  ARRAY  (39) 
DEFEXT  000116  RFAL*4  ARRAY  (2) 

COMMON  BIOCK  /IVINS)/  LENGTH  000003 

REOKG  000000  LOGICAL* 1  VARIABIE 
FELL  000001  LOGICAL*  I  VARIABIE 
RPLACE  000002  LOGICAL*!  VARIABIE 

COMMON  BLOCK  /I.VRUN/  LENGTH  000006 

RVNTYP  000000  INTEGER*2  VARIABIE 
CORE  000002  REAL*4  VARIABIE 

COMMON  BIOCK  /IVVTR1/  LENGTH  000002 

NOPSPC  000000  INTEGER*2  ARRAY  (1) 

COMMON  BLOCK  A VVTR2/  LENGTH  000002 

LSTSPC  000000  INTEGER* 2  ARRAY  (1) 

COMMON  BLOCK  A VVTR3/  LENGTH  000002 

LNKSPC  000000  INTEGER*2  ARRAY  (1) 

COMMON  BIOCK  A  VVTR4/  LENGTH  000002 

FIGSPC  000000  INTEGER* 2  ARRAY  (1) 


COMMON  BI  OCK  /I  VPELt/  LENGTH  000003 

NUMRET  000000  INTEGER *2  VARIABLE 
BAKCON  000002  LOGICAL* I  VARIABIE 


COMMON  BLOCK  A VADDR/  LENGTH  0000)4 

I ADD  000000  INTE0ER*2  VARIABIE 
THIS  000002  INTEGER*2  VARIABIE 
LSTHED  000004  INTEGER*2  VARIABIE 
LOC  000006  1NTEGER*2  VARIABLE 
LAST  000010  INTEGER* 2  VARIABLE 
LASTLC  000012  INTEGER* 2  VARIABIE 


COMMON  BIOCK  /I.VFNP/  LENGTH  000005 

COUNT  000000  INTEGER* 2  VARIABLE 
ABSPOS  000002  INTEGER* 2  VARIABLE 
LSTCON  060004  LOGICAL* 1  VARIABLE 
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